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1. INTRODUCTION 



This report describes a system of data acquisition and 
reduction programs, designed to acquire data from the Turbo- 
propulsion Laboratory's transonic compressor test facility. 
The computer hardware consists of an HP21MX mini computer 
with various peripheral devices. Both steady-state and high 
speed data are required to be taken as scheduled during a com 
pressor test. The entire hardware configuration is shown in 
Fig. 1. 

At the outset, the system of computer programs was 
required to do the following: 

(i) Control via the "Interface Bus", measurement devices 
such as Scanivalves (S/V’s), Scanivalve controllers, 
scanners, digital voltmeters (DVM) , digital counters 
analog to digital converters, and the acquisition 
timing device called PACER. 

( ii )• Perform data acquisition as efficiently as possible, 
store data in disc files, and document the test con- 
ditions . 

(iii) Provide a means to check the data system (e.g., SUB- 
ROUTINE CHECK, Section 6.2). 

(iv)- Provide a means to verify the raw data (e.g., SUB- 
ROUTINE PICTR , called from SUBROUTINE PACER, Section 
4.5. PICTR uses the auxiliary terminal to display 
the acquired wave form) . 
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(v) Provide a means for the operator to communicate 



interactively . Since the operator at the system 
console is usually the investigator or research 
engineer and not a computer specialist, the program 
flow and the programmed interactive messages were 
required to be clear, logical and easy to under- 
stand. 

The demand to speed up the data acquisition conflicted 
with the requirement of keeping the dialogue between program 
and operator clear. Interactive programs necessarily have 
extensive input-output operations which slow down the execu- 
tion of the program. A reasonable compromise between these 
two choices was the introduction of a "program control array", 
CNTRL, whose elements - once pre-assigned - relieved the opera- 
tor from entering routine decisions (e.g., telling the sub- 
routines FREER and PACER how many Kulite signals are to be 
recorded and where to locate them; see Appendix A3: CNTRL(23#) 

through CNTRL(246)). Additionally the control array provides 
accounting data (e.g., the sequential number for raw data 
files) . 

In the present report complete documentation is given 
of the program system "TXCO" . The system consists of a "father" 
program, TXCO#, which, in operation, calls on a series of "son" 
programs TXC01, TXC02 or TXC03 . 

The father program, TXCO#, offers the investigator a 
menu of program branches to be scheduled according to a single 
digital entry as follows: 
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1. Survey using the type 'A' and the type 'B' ABSRV 

Kulite semiconductor pressure probes (Ref 1 

and 2) . 

2. On-line calibration type 'A' and type 'B' CALIB 

probe. 

3. Acquisition of high speed data through the FREER 

fast A/D converter, which is operated in 

free run mode. 

4. Acquisition of high speed data through the PACER 

fast A/D converter, which now is controlled 

by a timing device, the PACER (Ref 3) . 

5. Radial flow survey using a temperature- COMB 

pneumatic four hole COMBINATION PROBE . 

6. Acquisition of all steady state data. STDY 

7. Check the instrumentation. CHECK 

8. Change the program control array. CHNGE 

9. Reduce high speed data from the 'A' - 'B' REDAB 

probe system. REDAB uses the data gathered 

by ABSRV. 

10. Reduce flow data from the combination probe. REDCO 
REDCO uses the data gathered by COMB. 

11. Reduce steady state data and add this REDST 

operating point to the compressor per- 
formance map. REDST uses the data gathered 

by STDY. 
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The investigator selects the desired program module by 
entering the appropriate number between 1 and 11. Entering 
12 halts the program. Subroutines ABSRV , CALIB, FREER and 
PACER - they handle the high speed data - are contained in 
PROGRAM TXC01 (Section 4) . Subroutines COMB and STDY - they 
handle the steady state data - are contained in PROGRAM TXC02 
(Section 5) . Subroutines CHECK and CHNGE - they are used by 
the operator to control the program flow and verify the data 
system - are contained in PROGRAM TXC03 (Section 6) . After 
the select code is entered, and verified either by entering 
an additional parameter or tapping the 



RETURN 



key, the 



"father" program suspends its operation while the desired 
"son" program (TXCOl, TXC02 or TXC03 ) executes. The entire 
TXCO-system works interactively with the operator and displays 
as many informative messages as possible. 

The program descriptions in the following sections ex- 
plain, in user-manual form, how to handle each subroutine. 

The descriptions often resemble each other, which in the in- 
terests of utility was deliberately not avoided. A compressor 
failure prevented the author from using the programs for com- 
pressor test runs. The report is therefore presented with 
only a very short section of conclusions and recommendations. 
The program system is not considered to have been perfected, 
since little experience has been gained with its operation 
other than in "dry" runs. 
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2. GUIDE TO THE PROGRAM DESCRIPTIONS 



Detailed descriptions of the programs are given in the 
following sections. First, in Section 3, a flow chart and 
listing are given for the father program TXCO0 . Then, the 
descriptions given in Sections 4 through 6 (of TXC01 through 
TXC03) are structured as follows: 

PROGRAM XXXX (or SUBROUTINE XXXX ) : PURPOSE : 

A brief description of the purpose of this particular program 
module is given, and its capabilities and restrictions are 
noted. 

ARGUMENTS : If the program module is a subroutine, which is 

called with parameters, the parameter list is explained. 

EXTERNALS : The externals of each program module are listed. 

This information is necessary when loading the relocatable 
binary version (indicated by the % sign as first character of 
the disc file name under the RTE-IV operating system) . 

COMMON BLOCKS : The members of the COMMON blocks and their 

length in 32-bit words are listed and explained. 

MNEMONIC ABBREVIATIONS : The mnemonic acronyms which each pro- 

gram module uses are listed and explained. 

ERROR MESSAGES : If a salvageable error occurs during the 

execution of a program module, an error message with suggestions 
for how to resolve the problem are described. 
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PROCEDURE : This subsection, which should always be used 



together with the flow chart, describes how to go through 
the program module. Hints for how to utilize all program 
features are given. 

DATA FILE : The date file name is explained for all program 

modules, which save data. The first two characters are 
typical for the type of data which the file contains; for 
example, 



Data File Name 
Tlrrss 
T2rrss 
T3rrss 
T4rrss 



Type of Data 
'A'-'B' probe survey 

\ 

free run sample 

paced run sample 

all raw steady state data 

combination probe survey 



T5rrss 
rr — # of test run 

ss — sequential # of data file type 



Created By 
ABSRV 
FREER 
PACER 
STDY 
COMB 



The following modules are synchronized through the data file: 



Data Reduction Program 
RE DAB 
REDST 
REDCO 



File Name 
Tlrrss 
T4rrss 
T5rrss 



Data Acquisition Program 
ABSRV 
STDY 
COMB 



VARIABLES : All variables, their type (REAL or INTEGER) and 
length (only if the variable is used as an array) , together 
with a brief description, are listed. 
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The flow chart and a FORTRAN-IV compiler listing of 



the program module complete each description. 

The source codes of programs TXCO0, TXC01, TXC02 and 
TXC03 are available in the disc files &TXCO0, &TXC01, &TXC02 
and &TXC03. Since TXC01 , TXC02 and TXC03 use common sub- 
routines and functions, the latter are grouped together in 
file &TXCOU, where the "U" indicates the following "utility” 
program modules : 



ACQN 


Positions S/V and reads DVM. 


CNTL 


Closes scanner channel. 


CURVE 


Compute linear curve fit. 


ICON 


Converts two-digit INTEGER to ASCII-string . 


IPORT 


Interrogates S/V. 


PICTR 


Use CRT to display the acquired data. 


REWRF 


Data transfer disc «--*■ array. 


RPACE 


Triggers A/D through PACER. 


SCANR 


Closes scanner channel and reads SVM, counter. 


TIME 


Gets date and time ASCII-string. 


WAIT 


Causes a defined time delay. 



When loading %TXC01, %TXC02 or %TXC03 , the relocatable 
binary utility file %TXCOU must also be loaded in order to 
satisfy the externals. The modules of TXCOU are described 
in Section 7, but in less detail than the programs in Sections 
4 through 6. 
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3. PROGRAM TXCO 3 



3.1. 
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3.2. PROGRAM LISTING, TXCOJ3 



POOL 0001 


r* r n . 5 - r ^ f- m m N * \ 


0 0 0 1 MN4 


1 


Ohm R 


bUJCK Dm f 


n o o ;; 


■; . i- ^ r > ' rreB' ' 4 1 i -i. 


o o n 4 


CO^hmN /-•••“ ' 1 1 ' !. 


min*; 


T K|TFCF° T ro'B < 4 4 4 > > •“ r f F < 2 
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Li-D 



F T N 4 CO -a P T i . F R : h )■> ; . 0 • , o - < :> p v ■ • £ -j . r ; 

** NO r o L >Pi>- M > 

BLOCK CQ* rO«J F *H J R T 'Z C = n n « 1 



\ 
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- r j 



!'■' AGE 



0 0 07 
nnno 
0 ri o 

n o i o 

00 it 



FTN4 

** 

BLOCK 



no 02 FTM. Q : : 7 6 Ar fiCN . . It ACC , t* <fl 



SvLOCK DATA 

* g r bi if " rri !»-" f j ( • i > 

ClV^Orf / ' I'lm ic / ‘ l. LO i * 
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FND 
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COMMON C1BUF SIZE = ili -»*•* 
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PACE 0003 FTN 



9 • 3 / 



nl'N , . i i 



V Ml) 



Hi 'I 



0 0 12 
0 0 1 3 


ft! oc'< r ' *- r \ 
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PACE 0004 FTN. 
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4. PROGRAM TXCOl 



4.1. DESCRIPTION 

TXCOl is a son program of the father program TXCOJ3 , by 
which it is scheduled, if one of the following operations is 
desired : 

1 - A - B - probe system survey 

2 - On line calibration, KULITE type 'A' and 'B' probes 

3 - Acquisition of high speed data in free run mode 

4 - Acquisition of high speed data in paced run mode. 

When scheduled by TXC0J3 , which suspends operation while the 
son program TXCOl executes, the program TXCOl, reads the pro- 
gram control array from the disc, sets the HP interface bus and 
the measurement and control devices to remote control and pro- 
grams the Digital Voltmeter (DVM) , the scanners and the counter 
CNTRL (50) is the actual decision variable to select and call 
the subroutine, which performs the desired operation. When 
this subroutine has terminated, the interface bus and the 
devices are released from remote control and the control array 
is written into a disc file, so that the next TXCO module can 
read it. The correct termination of each subroutine can be 
verified by checking the stop codes. Note, that each stop 
coding ending on 77 indicates correct execution of a subroutine 



CNTRL (50) 


Subroutine 


STOP < 


Sode 




1 


ABSRV 


TXCOl 


: STOP 


0177 


2 


CALIB 


TXCOl 


: STOP 


0277 


3 


FREER 


TXCOl 


: STOP 


0377 


4 


PACER 


TXCOl 


: STOP 


0477 
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Any other STOP code indicates an error and utilizing a program 
list the operator can trace the problem. The first two digits 
of the STOP code are typical for the subroutines. An example: 
the program stops at STOP code 0304; the first two digits read 
3 and this tells the operator that it was subroutine FREER which 
ran into trouble, because the ending two digits read 04, which 
is different from 77; a program list uncovers that the failure 
occurred while writing into a disc file using FMP (File Manage- 
ment Package) subroutine WRITF near line 1005. STOP codes are 
crucial for a complex program system in order to rapidly detect 
and salvage problems, even during a test run. 

EXTERNALS : REWRF , ABRT , RMOTE , ABSRV, CALIB, FREER, PACER, 

CLEAR, LOCL 

COMMON BLOCKS : CONTR, CIBUF, FMP 

FORTRAN conventions for the HP21MX computer request COMMON 
blocks to be predefined in a BLOCK DATA subroutine prior to 
using a COMMON block in a program, subroutine or function. 



BLOCK DATA subroutine 


arrays & variables 


length 


in words 


CONTR 


CNTRL 


400B 


= 256 


CIBUF 


IBUF 


3200B 


= 1664 


FMP 


IDCB , IFILE , ISIZE , ISECU , ICR 


227B 


= 151 



The COMMON block CONTR allocates the space for the control 
array CNTRL. A key to decode the individual elements of CNTRL 
can be found in the Appendix .COMMON block CNTRL is designed to 
take the largest raw data array - IBUF (1664) in subroutine 
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FREER - even if other subroutines only partially use the 
space, allocated by the block CIBUF. The arrays and variables 
allocated by the COMMON block FMP are frequently used for the 
data transfer from and to the disc. Since each individual sub- 
routine saves the data prior to terminating, more than one 
subroutine or function may use the same buffer area. 

MNEMONIC ABBREVIATIONS : None 

ERROR MESSAGES : If CNTRL (50) is less than 1 or greater than 4,' 

no subroutine can be selected and the program terminates, out- 
putting an error message (FORMAT 102) to the terminal. 

PROCEDURE : For more detailed information study the flow chart 

and the information given in the section PURPOSE. 



DATA FILE ; None 

VARIABLES IN BLOCK DATA CONTR : 
CNTRL (256) integer 

VARIABLES IN BLOCK DATA CIBUF ; 
IBUF (1664) integer 

VARIABLES IN BLOCK DATA FMP ; 

IDCB (144) integer 

IFILE (3) integer 

ISIZE (2) integer 



program control array. 

buffer array for the raw data. 

data control block, 
array to contain file name, 
array to contain # of records 
in the first and record length 
in 16-bit-words in the second 
word . 
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ISECU 



integer security code of data file. 
ICR integer cartridge reference number, 

where data file is located. 

VARIABLES IN PROGRAM TXC01 : 



CNTRL (256) 


integer 


program control array. 


NOLF 


integer 


suppresses line feed. 


LI 


integer 


LU3 of standard input device 
(terminal) . 


ISTOP 


integer 


control variable to select 
STOP code. 


XI 


real 


1 


X2 


real 


> dummy variables. 


X3 


real 
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FLOW' CHART PROGRAM T*CO/ ■ 





( START \ 








- • - - • • • — - — — 






— • — — • — 


Define Common 
M ock FMP ■ 


— - - - - - - - 
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~ - • - ; - - 


define Common 
U ock CI3UF. 


.... . 


\ 







define Common 
U ock CONrR. 


• • - -- 


5 





- •; t .... - 


Read prcgrarn 
Coni to L Qrray 
from d/Sc fife 
/r>Jo CN TRL - 


. . - - . - - 


Call Rpurf 



I/O Assignment . 
LI'CHTPL 03) 




4 - , .* — 1 — : — — ~7 HP -IQ 
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4.2. SUBROUTINE ABSRV : 



PURPOSE : Acquisition of high speed data from the 1-stage 

axial compressor using miniaturized probes equipped with KULITE 
semiconductor pressure transducers. 

ARGUMENTS : None 

EXTERNALS : CALIB, TIME, REAT, PURGE, OPEN, WRITE, POSNT, CLOSE, 

SCANR, PACER. 

COMMON BLOCKS : CIBUF, CONTR, FMP . For detailed explanation 

refer to the TXCOl description. 

MNENOMIC ABBREVIATIONS : 

RE ... Repeat data acquisition of this yaw position. 

NE ... Proceed to next yaw position. 

EN ... En d data acquisition at various yaw positions. 

UP ... Update position readings of probes prior to data 
taking . 

TA ... Initialisation command to take data. 

PU ... Allow purge of an existing data file. 

ERROR MESSAGES : If the number of yaw positions exceeds the 

previously defined number, the program terminates the sub- 
routine correctly (in order to save the already acquired 
data) and displays an error message (FORMAT 118) . The total 
# of possible yaw positions is input prior to creating the raw 
data file, so that latter can be created at the desired length. 
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PROCEDURE: For more detailed information, study the flow 



chart. After having read the accounting data, assigned the 
I/O references and preset the raw data array, ABSRV asks the 
operator, whether the 'A'-'B'- probe system has been calibrated 
on line. If the answer is NO, ABSRV calls the subroutine CALIS, 
which controls the calibration. Then the calibration results 
are entered and the operator is asked to input the number of 
different yaw positions. Based on this information a raw data 
file of the appropriate length will be created and positioned. 

If the file with the automatically determined name already 
exists, the operator either allows overwriting the existing 
file (Input : PU) or renames the current data file (Input : any 
alphabetic character other than T) . Prior to taking data the 
position of the probes is scanned and displayed. This control 
loop can be repeated by keying UP . Inputting TA initializes 
the data acquisition by subroutine PACER. Upon completion of 
the scan the operator can repeat this scan (Input : RE) , pro- 
ceed to the next point (Input : NE) with a different yaw posi- 
tion of both 'A' and 'B' probe. If the operator accidentally 
has decided to proceed to a probe position beyond the previously 
specified number, ABSRV displays an error message and terminates 
the subroutine correctly, i.e. saves the data in file, closes 
the file and writes the accounting data back into the control 
array . 

DATA FIT.F. i For more detailed information, study the following 
flow chart. The default file name is Tlrrss (rr . . . ASCII con- 
verted run #, ss ... ASCII converted sequential #) . 
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VARIABLES : 



IBUF 


(1664) 


integer 


buffer array 


CNTRL 


(256) 


integer 


control array 


IDCB 


(144) 


integer 


data control block, used for FMP 
calls 


IFILE 


(3) 


integer 


array to contain current file 
name calls 


ISIZE 


(2) 


integer 


specifies # of records and record 
length 


ISECU 




integer 


security code of data file 


JSECU 




integer 


ASCll-converted security code 


ICR 




integer 


cartridge reference number, when 
data file is located 


JCR 




integer 


ASCII converted cartridge 
reference number 


POS ( 7 ) 


real 


array to contain probe positions 


RBUF 


(62) 


real 


data array, set equivalent to IBUF 


NOLE 




integer 


suppresses line feed 


NOCR 


(2) 


integer 


suppresses line feed and carriage 
return 


ICLR 


(3) 


integer 


clear line above cursor 


IDCBS 




integer 


length of data control block IDCB 


I PAGE 




integer 


count of current page 


IDOC 




integer 


count of current program run 


IDOCF 




integer 


count of current data file 
sequential # 


IL 




integer 


number of words to be transferred 
in FMP calls 
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ITYPE 


integer 


type of data file 


IFRST 


integer 


standard for the first two 
characters of file name 


LI 


integer 


LU3 of standard input device 
(terminal) 


LO 


integer 


LU# of standard output device 
(line position) 


LSI 


integer 


LU# of scanner #1 


LS2 


integer 


LU# of scanner #2 


I CAL 


integer 


decision parameter 


IDUM 


integer 


decision variable 


SLOPEA 


real 


slope of linear curve fit for 
A probe calibration 


SECONA 


real 


intercept of linear curve fit 
for A probe calibration 


SLOPEB 


real 


slope of linear curve fit for 
B probe calibration 


SECONB 


real 


intercept of linear curve fit 
for B probe calibration 


AVRGEA 


real 


average voltage A probe, when 
aligned to flow 


AVRGEB 


real 


average voltage B probe, when 
aligned to flow 


PBARO 


real 


barometric pressure 


NPOS 


integer 


number of different yaw 
positions 'A'-'B' survey 


IERR 


integer 


error flag (FMP package) 
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IMON 


integer 


ASCII converted month of the year 


I DAY 


integer 


ASCII converted day of the month 


I HOUR 


integer 


ASCII converted hour of the day 






(24 hr clock) 


IMIN 


integer 


ASCII converted minute of the hour 


IYEAR 


integer 


ASCII converted last two digits 






of current year 


IFRST 


integer 


temporary buffer variable 


NEW 


integer 


scratch variable for change of 






file name 


IPOS 


integer 


current yaw position count 


IREC 


integer 


record positioning variable 
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4.3. SUBROUTINE CALIB 



PURPOSE : Control the on-line calibration for the A-B- probe 

system. This includes data acquisition and storage as well as 
approximating the calibration results. 

ARGUMENTS : None 

EXTERNALS : TIME, FREER, PACER, CURVE 

COMMON BLOCKS ; CONTR. For detailed explanation refer to the 
TXC01 description. 

MNEMONIC ABBREVIATIONS ; 

RE ... Re peat this point 

EN ... End the on -line probe calibrations 

ERROR MESSAGES : If no calibration is performed, the sub- 

routine outputs a warning (FORMAT 108) and terminates; this 
can happen, if at the first decision to be made the operator 
inputs EN. 

If less than two points with different reference pressures 
are taken, the subroutine outputs an error message (FORMAT 
log) and terminates. 

Both messages, if studied carefully, tell the operator how 
to avoid mistakes. 

PROCEDURE: For more detailed information, study the flow 

chart. After having read the accounting data and assigned 
the I/O references, CALIB asks the operator to input a 
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number (which, when the program was debugged, was the digital 
multimeter read-out displaying the analog voltage of either 'A' 
or 'B' probe). This input initializes the data acquisition at 
the first reference pressure. Then the program reminds the 
operator to switch the pacer to free run mode. The operator 
responds by pressing the return key and the program calls sub- 
routine FREER. Average voltage from both 'A' and 'B' probe, 
together with the KULITE reference pressure are written into 
the arrays AVOLT, BVOLT and RPRES , respectively. The operator 
then decides whether to repeat the measurements at this 
reference pressure (Input : RE) , end the calibration 
(Input : EN) or proceed to the next point (Input : any numeri- 
cal value) . If the calibration is to be terminated, the 
operator is reminded to switch the pacer to paced run mode 
and, with the reference pressure unchanged, a paced scan is 
taken from both 'A' and ’B' probe (using PACER). Then sub- 
routine CURVE computes an average linear curve fit through 
the data points (AVOLT vs. RPRES and BVOLT vs. RPRES respec- 
tively) . In both cases slope and intercept are printed. Note, 
that the intercept is meaningless, but required in subroutine 
CURVE, which uses a least squares algorithm. CALI3 then ter- 
minates and writes the accounting data back into the control 
array. 

DATA FILE: Handled by subroutines FREER (Section 4.4) and 

PACER (Section 4.5). 
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VARIABLES : 



CNTRL (256) 


integer 


control array 


AVOLT (10) 


real 


array to contain average voltages 
from A probe 


BVOLT (10) 


real 


array to contain average voltages 
from B probe 


RPRES (10) 


real 


array to contain reference pressure 


DMM (10) 


real 


array to contain additional data 
(e.g. : DMM read outs) 


NOLF 


integer 


suppresses line Feed 


NOCR (2) 


integer 


suppresses line Feed and carriage 
return 


ICLR (3) 


integer 


clears line above cursor 


I TIME (5) 


integer 


array to contain ASCII converted 
date and time 


10 (5) 


integer 


scratch array 


I PAGE 


integer 


count of current page 


LI 


integer 


LU# of standard input device 
(terminal) 


LO 


integer 


LU# of standard output device 
(line printer) 


IMON 


integer 


ASCII converted month of the year 


I DAY 


integer 


ASCII converted day of the month 


IYEAR 


integer 


ASCII converted last two digits 


IHOUR 


integer 


ASCII converted hour of the day 
(24 hr clock) 
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IMIN 

IPTS 

IPREV 

I BUM 
DM 

IREC 

SLOPE 

SECON 



integer 

integer 

integer 

integer 

real 

integer 

real 

real 



ASCII converted minute of the 
hour 

variable count total # of 

calibration positions 

variable temporary stores contents 

of CNTRL (219) 

scratch variable 

variable used to decode value 

from array 10 

starting record for paced run- 
data array 

slope of linear curve fits 
intercept of linear curve fit 
(as from CURVE) 
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4.4. 



SUBROUTINE FREER: 



PURPOSE : Control data acquisition from HP 5610 A/D converter, 

store data in file and documentation, perform calculation of 
average voltage. 

ARGUMENTS : AVOLT, BVOLT , PREFR 

AVOLT real average voltage from 'A'- probe, 

based on NRPT3 points 

BVOLT real average voltage from ' B'- probe, 

based on NRPT3 points 

PREFR real reference pressure for KULITE 

transducers (raw data format) 

EXTERNALS : TIME, ICON, SCANR , EXEC, ABREG, CREAT, OPEN, PURGE, 

WRITF , CLOSE 

COMMON BLOCKS : CIBUF, CONTR, FMP . For detailed description 

refer to the TXC01 description 

MNEMONIC ABBREVIATIONS : 

PU ... Allow purge of an existing data file 

ERROR MESSAGES : If the EXEC call to read the voltages from the 

A/D converter is not executed correctly, an error return occurs 
as follows : 
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r 



■fc> set the no-abort bit. 



i 1 

CALL EXEC (1 + 100000B, 20, IBUF(l), NRPT2 , ICHNL , 4) 
GO TO 11 <; error return: perform error processing! 

10 GO TO 12 good return: proceed! 

11 CALL ABREG (IA,IB) <J look, what's in the registers. 

GO TO 21 



c 

c 

c 

c 

c 



21 WRITE (6, 901) NRPT2, ICHNL output error message, 

WRITE (6, 902) IA, IB j ^ then terminate 

GO TO 20 subroutine 



PROCEDURE : For more detailed information, study the flow chart. 

The subroutine reads the accounting data from the control array 
and defines FMP parameters (FMP : File Management Package, 
manipulates disc Files) . Next the I/O references are assigned 
and all words of the raw data array are preset to be 177777B. 

If CNTRL (37) is set to 1, the heading for the Free Run documen- 
tation page is printed. If CNTRL (38) is set to one, a key to 
the printout is printed. Then the data acquisition loop starts 
and executes NRPT1 times (NRPT1 = CNTRL (230) = number of KULITE 
signals to be acquired; maximum is 16) . Should the sequential 
number for the data file name become greater than 99, the first 
two characters of the file name are changed from T2 (default) 
to S2 and the count is reset to zero. Additional data is 
acquired and the probe positions are read and written into the 
variable IOX1M. Prior to the data acquisition all unused 
elements of the data array are set to zero. Utilizing the EXEC 
call NRP2 measurements are performed and the A/D digital 



Error returns . . . . 
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output is written into array IBUF, starting at address of word 
IBUF (1) . ICHNL specifies the selected A/D analog input 
channel. The 4 in the parameter list causes the A/D converter 
to dump data into the CPU as fast as possible via DMA (Direct 
Memory Access) . If an error occurs, its reason is enquired 
(see preceding segment ERROR MESSAGES) . To calculate the 
average voltage, all words of IBUF must be anded with IMASK, 
because bits 0 through 5 are used to control the data transfer. 

bit 15 12 9 6 3 0 

IBUF ( J2 ) 1111001011100010 = 171342B 

IMASK 1111111111000000 = 177700B = -64 

IBUF ( J2) = IAND ( IBUF ( J2 ) , IMASK) 

IBUF ( J2 ) = 1111001011000000 = 171300B = -3392 

To derive the voltage, IBUF (J2) must first be divided by the 
maximum value which can be transferred by a 16-bit word when 
the bits 0 through 5 do not contain data; this word is 

0111111111000000 = 077700B = 32704 

This bit configuration corresponds to the full scale voltage 
(FSVLT) of +1 Volt. When no bit is set, the voltage is 0 
(ensured by calibration). Thus if the integer, IBUF(J2) is 
divided by 32 704 and multiplied by unity the voltage is ob- 
tained. Since the bits 0 through 5 are not used for data, 
the maximum voltage resolution of the A/D converter is 

R - 777TOB * FSVLT “ nrToT * FSVLT - m * FSVLT 

R = .001 956 947 Volt, if FSVLT = +1.0 V 
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The voltage associated with the bit configuration 

1111001011000000 = 171300B = -3392 

-3 392 

is -.103 718 Volt = — 704 " * 1*0 Volt. In the Subroutine, how- 

ever, the division through 32 704 and the multiplication with 
FSVLT is executed after all the voltages from NRPT2 points 
are added in order to compute the average voltage. The average 
voltage then is written into the variable AVOLT or BVOLT , depend- 
ing on which probe has been selected. The data then are saved 
in a file. If a file with the automatically determined 
name already exists, the operator either allows overwriting 
the existing file (Input : PU) or renames the current data 
file (Input : any alphabetic character other than T) . This 
is the only interactive manipulation in the subroutine. The 
data acquisition loop terminates, printing the most important 
data. Accounting data are written back into the control array 
and the subroutine returns control to the calling program. 



DATA FILE : The data file consist of 13 records with a length 

of 128 words each, so that 1664 = (128 * 13) words can be 
stored. The default file name is T2rrss (rr ... ASCII con- 
verted run #, ss ... ASCII converted sequential #). 



VARIABLES : 

IBUF (1664) 
CNTRL (256) 
IDCE (144) 



integer 

integer 

integer 



buffer array for raw data 
control array 

data control block, used for FMB 
calls 
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IFILE 


(3) 


integer 


array to contain current file name 


ISIZE 


(2) 


integer 


specifies # of records and record 
length 


ISECU 




integer 


security code of data file 


ICR 




integer 


cartridge reference number, where 
data file is located 


NOLF 




integer 


suppresses line feed 


NOCR 


(2) 


integer 


suppresses line feed and carriage 
return 


ICLR 


(3) 


integer 


clear line above cursor 


IOXIM 


(9) 


integer 


array, where 'A' and 'B' probe 
positions are written into in 
ASCII code 


FSVLT 




real 


full scale voltage of A/D con- 
verter 


IDCBS 




integer 


length of data control block IDCB 


IPAGE 




integer 


counts of current page 


I DOC 




integer 


counts, how often this subroutine 
is called 


IDOCF 




integer 


count of current data file 
sequential # 


ITYPE 




integer 


type of data file 


IFRST 




integer 


standard for the first two 
characters of file name 


ISP 




integer 


decision variable, used to space 



the output 
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IL 


integer 


number of words to be transferred 
in FMP calls 


LI 


integer 


LU# of standard input device 
( terminal) 


LO 


integer 


LU# of standard output device 
(line printer) 


LSI 


integer 


LU# of scanner #1 


LS2 


integer 


LU# of scanner #2 


ISV1 


integer 


code # of S/V controller #1 


ISV4 


integer 


code # of S/V controller #2 


NRPT1 


integer 


# of various KULITE signals to be 
acquired 


NRPT2 


integer 


total # of point, taken from each 
KULITE signal 


NRPT3 


integer 


= NRPT2+ : DO loop start address 


IMASK 


integer 


masking variable 


IW 


integer 


controls time delay between closing 
S/V port and reading voltage 


IMON 


integer 


ASCII converted month of the year 


I DAY 


integer 


ASCII converted day of the month 


IHOUR 


integer 


ASCII converted hour of the day 
(24 hr clock) 


IMIN 


integer 


ASCII converted minute of the hour 


IYEAR 


integer 


ASCII converted last two digits 
of current year 


ICHNL 


integer 


A/D input channel to be selected 


FREQ 


real 


RPM of the transonic compressor 
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CIM 

CYAW 

PREF 

PREFR 



PI 

P23 

P4 

E 

DE 



XIM 

YAW 

IA 

IB 

AVRGE 



AVOLT 

BVOLT 

ISP 

IDUM 



real 

real 

real 

real 



real 

real 

real 

real 

real 



real 

real 

integer 

integer 

real 



real 

real 

integer 

integer 



immersion of the combination probe 
yaw angle of the combination probe 
KULITE reference pressure 
KULITE reference pressure as 
returned to the calling routine 
(either CALIB, ABSRV or TXC01) 



►pressures P^, P 23 & P^ from 
calibration probe 
Temperature reading from sensor 
ahead of rotor (in mV) 

Differential temperature reading 
from station ahead of rotor across 
rotor 

Immersion of the KULITE probe 
Yaw angle of the KULITE probe 
Variable to contain contents of A 
register 

Variable to contain contents of 
B register 

KULITE output average voltage 
after amplification and A/D 
conversion 

'A' probe output average voltage 
'B' probe output average voltage 
control variable to space output 
decision variable 
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IERR 


integer 


error flag returned from FMP calls 


JSECU 


integer 


ASCII converted security code 


JCR 


integer 


ASCII converted cartridge reference 
number 


NEW 


integer 


variable to contain changed first 
two characters of raw data file 



name 
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4.5. SUBROUTINE PACER: 



PURPOSE : Control data acquisition from HP 5640 A/D converter 

if this device is triggered by the pacer, store data in file 
and document all steps. 

ARGUMENTS : IREC 

IREC integer starting record #, where raw KULITE and 

additional data are written 

EXTERNALS : TIME, ICON, SCANR, ACQN, RPACE , PICTR, CREAT , 

OPEN, PURGE, WRITF, CLOSE 

COMMON BLOCKS : CIBUF, CONTR, FMP . For detailed description 

refer to the TXCOl description. 

MNEMONIC ABBREVIATIONS : 

PU ... Allow purge of an existing data file 
RE ... Rep eat data acquisition 

ERROR MESSAGES : None 

PROCEDURE : For more detailed information, study the flow 

chart! The subroutine reads the accounting data from the 
control array and defines FMP parameters (FMP: file manage- 

ment package, manipulates disc files; refer to the HP manuals 
for more information) . Next the I/O references are assigned 
and the words of the data array are present. If CNTRL (37) 
is set to 1, the heading for the paced run documentation page 
is printed. If CNTRL (38) is set to 1, a key to the print 
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out is printed. Then the data acquisition loop starts and 
executes NRPT1 times (NRPTl = CNTRL C230) = number of KULITE 
signals to be acquired; maximum is 16) . If CNTRL (39) is set 
to 1 (i.e.: subroutine PACER is called from subroutine ABSRV, 

which takes care of creating/opening, positioning and closing 
files) , the accounting of the data file names is skipped. If 
otherwise, i.e. CNTRL (39) is not equal to 1, the sequential 
number for the data file name exceeds 99, the first two char- 
acters of the file name are changed from T3 (default) to S3 
and the count is reset to zero. Additional data is acquired 
and the probe positions are read and written into the variable 
IOXlll. Since the KULITE 
probes are mounted in phy- 
sically different posi- 
tions (the phase angle is 
90°, i.e. 2*s times 40°, 
where 40° is double the 
rotor inter-blade angle) , 
and the signals must be 
converted from the same 
point in the rotor blade 
wake, the IBLADE for the 
'B' probe has to be 
increased by the appro- 
priate amount, which 
is 576 (see sketch) . 
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The operator is then informed that the system is ready for 
the next data scan. Depressing the RETURN key starts the 
data acquisition. Pacer mode (1 or 2), selected blade pair, 
increment to step through the 256 blade passage locations and 
the number of measurement repetitions at each location (i.e. 
at each IBLADE) are read from the control array. If the pacer 
is operated in mode 2 (i.e. selects a specific blade pair), 
the bit 15 is set by adding IADD = 100000B to the start and 
stop address. Refer to the RPACE description for details 
concerning how the data acquisition is performed. Not only 
the voltages, through subroutine RPACE, but also additional 
data are written into the raw data array. Some of the data 
are multiplied by 1,000,000 in order to be able to store all 
valid digits in integer constants and the average voltage 
AVRBE is set equivalent to the array IAVERGE ( 2 ) by an 
EQUIVALENCE statement. 




Date and time are written into the raw data array also. If 
CNTRL(40) is set to 1, the wave as acquired is displayed on the 
terminal, which is selected by its logical unit number LA. Re- 
fer to the detailed description of subroutine PICTR for further 
information on how this is achieved; i.e. to use a non-graphics 
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terminal for plotting. The resolution of the terminal plot is 
is very limited. The option to display the just-acquired 
periodic high speed signal is designed to give the operator 
an opportunity to immediately verify the correctness of the 
data acquisition. Connecting a lead from KULITE amplifier 
output to an oscilloscope gives the investigator the chance 
to check digitized data against original analog data. If an 
error is encountered, the data scan may be repeated (Input : 

. . . RE) . Depressing the RETURN key causes the subroutine to 
proceed to the next task, the storing of the data. File name, 
ASCII converted security code and ASCII converted cartridge 
reference number are written into the raw data array. The raw 
data file is either created/opened and closed by subroutine 
PACER (CNTRL (39) is not equal 1) or this subroutine is called 
from subroutine ABSRV, which already has created/opened and 
positioned the raw data file and will close it (CNTRL (39) is 
set to 1). If, in the first mode, the automatically determined 
file name already exists, the operator either allows overwriting 
the existing file (Input: PU) or renames the current data 

file name (Input: any alphabetic character other than T) . The 

starting record number is also written in the data array. If 
CNTRL (39) is not equal 1, the raw data file is closed and the 
data acquisition loop stops printing all the additional data 
on the documentation page. The accounting data are written 
back into the control array and the subroutine terminates. 
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DATA FILE: For more detailed information, study the key to the 



raw data file following this description. The default file 
name is T3rrss (rr ... ASCII converted run #, ss ... ASCII 
converted sequential #) . 

VARIABLES : 



IBUF 


(1664) 


integer 


buffer array 


CNTRL 


(256) 


integer 


control array 


IDCB 


(144) 


integer 


data control block; used for FMP 
calls 


IFILE 


(3) 


integer 


array to contain current file 
name 


ISIZE 


(2) 


integer 


specifies # of records and record 
length in words 


ISECU 




integer 


security code of data file 


JSECU 




integer 


ASCII converted security code 


ICR 




integer 


cartridge reference number, where 
data file is located 


JCR 




integer 


ASCII converted cartridge reference 
number 


NOLF 




integer 


suppresses line feed on terminal 


NOCR 


(2) 


integer 


suppresses line feed and carriage 
return on terminal 


ICLR 


(3) 


integer 


clear line above cursor 


IBUFl 


(384) 


integer 


raw data array, set equivalent 
to IBUF 


IOXIM 


(9) 


integer 


array to contain probe positions 



in ASCII code 
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IAVRGE ( 2 ) 



IDCBS 

I PAGE 
I DOC 
IDOCF 

IL 

ITYPE 

IFRST 

ISP 

LI 

LO 

LA 

LSI 

LS2 

ISV1 

ISV4 

NRPT1 



integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 



array to contain average voltage, 
set equivalent to AVRGE 
length of data control block IDCB 
in words (here : 144) 

count of current page 

count of current program run 

count of current data file seq- 

uential # 

number of words to be transferred 
in FMP calls 

type of data file (here: 1) 

standard for the first two 
characters of data file name 
control variable, used to space 
the output 

LU# of standard input device 
(system console) 

LU# of standard output device 
(line printer) 

LU# of auxiliary output device 
(auxiliary terminal) 

LU# of scanner 1 

LU# of scanner 2 

number of S/V controller 1 

number of S/V controller 2 

number of KULITE measurements 

('A', 'B', case KULITES ) 
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IW 

IMON 
I DAY 
IYEAR 

FREQ 

CIM 

CYAW 

PREF 

PI 

P23 

P4 

E 

DE 

XIM 

YAW 

IADD 



integer 



integer 

integer 

integer 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

real 

integer 



time delay between closing S/V 
part and reading transducer 
voltage From DVM 

ASCII converted month of the year 
ASCII converted day of the month 
ASCII converted last two digits 
of current year 
RPM of the compressor 
immersion of the combination probe 
yaw angle of the combination probe 
reference pressure for the KULITE 
probes 

pressure P^ from the combination 
probe 

pressure P 23 from the combination 
probe 

pressure P^ from the combination 
probe 

thermocouple output, Station 'O' 
thermocouple differential output 
from 'O' across rotor 
immersion of either 'A'- or ’B' 
probe 

yaw angle of either 'A'- or 'B' 
probe 

variable to be added to start and 
stop address for paced run to 
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compensate phase angle between 
these probes 



IDUM 


integer 


decision variable 


IP AMO 


integer 


pacer mode (1 or 2) 


IPAIR 


integer 


selected blade pair 


I START 


integer 


start address for paced run 


ISTOP 


integer 


stop address for paced run 


INCR 


integer 


increment for paced run 


IRPT 


integer 


number of repetitions at each 
I BLADE 


Jill 


integer 


dummy variable 


J222 


integer 


dummy variable 


DUM 


real 


dummy variable 


I ERR 


integer 


error flag used by FMP calls 


NEW 


integer 


scratch variable used to change 



file name 
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FLOW CHART SUBROUTINE PACER 





/ 




9-3 - ----- 




98 



0 



\ 


z 


Li/rt h c/arfitA y ft cot* 

it tub cJ*Iq arra J‘ 
. I3u? (zn)*ZX£t. 


\ 





k/r*k. rf*ta ><* fib 








CALL iv/urr 




- 



IE/?/? < 0 
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Terminals 
hn<i / w/y^r 
accomnb'ry^ ctatcL 
bc&k />7to combat 

**Z3L 



( ~^ETURN_ ) 





-• 103 : - 



4.6. PROGRAM LISTING TXCOl 



PAGE 000 j FTN . 2:47 PM MON., 2S AUG., 1980 



0001 

0002 

0003 

0004 

0005 

0006 



FTN4 , L 

BLOCK DATA 

*> / FMP / IDCB<144) , IFILE(3)> I SIZE ( 2 ) , ISECU , ICR 
dOMMON / FMP / IDCB, IFTLE, ISiZE, ISECU; ICR 
INTEGER IDCB ( 144 ) ,IFILE<3) ,ISIZE<2> 

END 



FTN4 COMPILER: HP92Q60-1 6092 REV. 1926 <790430) 
tt NO WARNINGS *X NO ERRORS ** 

BLOCK COMMON FMP SIZE * 001S1 



\ 



04 
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0007 

0008 
000? 
0010 
0011 


BLOCK DATA 

*> / CIBUF / IFUF ( 1 664 ) 
COMMON / CIBUF / IBUF 
INTEGER IBUF ( 1664 ) 

END 


FTN4 


COMPILER: HP92Q60-16092 REV . 1926 (790430) 



** NO WARNINGS ** NO ERRORS ** 
BLOCK COMMON CIBUF SIZE = 01664 
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0012 

0013 


BLOCK DATA 

t, A CONTR / CNTRL ( 256 ) 


0014 

0015 

0016 


COMMON / CONTR / CNTRL 
INTEGER CNTRL (256 ) 

END 



FTN4 COMPILER) HP92060-16092_REV . 1926 (790430) 
** NO WARNINGS *# NO ERRORS XX 
BLOCK COMMON CONTR SIZE = 00256 
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0017 

0018 

0019 

0020 
0021 
0022 

0023 

0024 

0025 
0028 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 
0 037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 
)S3 



0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 
0061 
0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 



0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 



C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



PROGRAM TXCOl (3,99) 



The operating system RTE IV B requests the data acquisition 
program TXCO'for the one staqe transsonic compressor to be 
split into several programs schduled by the father program 
program TXCOO . This son program TXCOi consists of the sub- 
routines ABSRV, CALIB, FREER and PACER, These handle the 
acquisition of high speed data, The data transfer between 
father and son proqram takes place via the control arrav 
file CONTR (disc file CNTRLF) and the data arrav IBUF (disc 
file IBUFF ) . 

The utilitv subroutines ACQN * CNTL , CURVE, ICON, IPORT, 
PICTR, REWRF, RP ACE v SCANR , TIME and WAIT are added. 

Author; Hans M, Zebner 

Date ; March 12, 1980 

A detailed proqram description is available in the TXCO loq. 
Comment statements ans statement numbers in the source code 
match to yhe program description. This program is part of 
the TXCO transonic compressor investigation program system. 



*, First son program of father program TXCO. 
COMMON / CONTR / CNTRL 
INTEGER CNTRL ( 256 ) 



DATA NOLF /006537B/ 

101 FORMAT (9X* "20X”"A2> 

102 FORMAT < " TXCOO : PROGRAM 
*EN INITIALIZED . M ) 

801 FORMAT <"CA M ) 

1001 FORMAT ( •'F1R7M3A1H0T3") 

1201 FORMAT ( M PF4G6T" ) 

1501 FORMAT ( "CA M > 

CALL REURF (-1,2) 

LI = CNTRL. (19) 

IF < CNTRL ( 50 ) . LT . 1 .OR. 



ABORTED! NO SUBROUTINE HAS BE 



CNTRL ( 50 ) .GT. 4 ) GO TO 05 



C 

C 

C 

C 

C 




CALL ABRT (7,2) 
CALL RMOTE < 8) 
CALL RMOTE (10) 
CALL RMOTE (12) 
CALL RMOTE ( 15) 
WRITE ( 3, 801) 
WRITE (10,1001) 
WRITE (12,1201) 
WRITE (iS'iSOl) 



C 

C 

C 

C 




uu/o u 

0077 


ISTOP 


= CNTRL ( 50 > 










0078 


IF 


< 


CNTRL ( 50) 


.eq. 


1 


) 


CALL 


ABSRV 


0079 


IF 


< 


CNTRL (50 ) 


,EQ. 


2 


) 


CALL 


CALIB 


0080 


IF 


< 


CNTRL ( 50 ) 


,EO. 


3 


) 


CALL 


FREER 


0081 
0 082 
0083 C 


IF 


< 


CNTRL ( 50 ) 


.EQ. 


4 


) 


CALL 


PACER 



C 

C 

C 

C 




CALL CLEAR (7,1) 
CALL LOCL (7) 

CALL REWRF (1,2) 
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0092 




WRITE < L I 


0093 




GO -TO (01 


0094 


01 


STOP 0177 


0095 


02 


STOP 0277 


0096 


03 


STOP 0377 


0097 


04 


STOP 0477 


0098 

0099 


05 


(Li 



101) NOLF 



102 ) 



ISTOP 



FTN4 COMPILER: HP92060-1 6092 REV. 1926 (790430) 

** NO WARNINGS ** NO ERRORS ** PROGRAM = 002S7 COMMON 



00000 
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3100 

0101 

0102 

0103 

0104 

0105 

0106 

0107 

0108 
0109 

mi 

0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 
0121 
0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

mi 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 
0161 
0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 



SUBROUTINE ABSRV 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 

*, Takes data fron the 'A' - 'B' - probe system. 

COMMON / CIBUF / IBUF 

COMMON / CONTR / CNTRL 

COMMON / FMP / IDCB , I FILE , I SIZE , ISECU , ICR 

INTEGER IBUF ( 1664 ) 

INTEGER CNTRL ( 256 ) 

INTEGER IDCB (144) , IFILE(3) ,ISIZE(2) 

REAL P0S(7) ,RBUF (64) 

INTEGER NQLF, NQCR ( 2 ) , ICLR ( 3 ) 

EQUIVALENCE ( IBUF ( 1 ) , RBUF ( 1 ) > 

DATA NOLF /0Q6S37B/ 

DATA NOCR /Q 0 0 033B , 040433B/ 

DATA ICLR /QiS524B,Q155i5B,0Q6S37B/ 

DATA IDCBS /144/ 



Subroutine to acquire high speed data fron the 1-stage axial 
transonic compressor using miniaturized probes equipped with 
KULITE semiconductor pressure transducers. 

Author: Hans Zebner 

Date: August 12, 1980 

A detailed program description is available in the TXCO log. 
Comment statements and statement numbers in the source code 
match to the program description. This subroutine is part of 
the TXCO transonic compressor investigation program system. 



n R M A T <•> ABSRV $5 *T A R *T 

i 01 * F 28 M «ni; Did the Type 

102 FORMAT (A2) 

103 FORMAT (/" "79X " * A2/ H Since you forqo 
*these nice probes, I will do it right 
tress the RETURN kev to continue the ex 
troqram! "16X""A2/" M 79X'*"A2/> 

104 FORMAT ( - ABSRV : CALL CALIB") 

105 FORMAT (/’* Enter the followina result 
tbration ! " 5X“ V 

*" PBARO PREF AVRGEA AVRGEB 
t SLOPEA SECONA SLOPEB SECONB"/ 
t ** " 7 ( " " > ^2 ) 

1 06 FORMAT' (iX*F7.2 > lX,7(F7.&,iX) ) 

107 FORMAT ( " How many yaw positions for 

tB 9 probe? " 2 ( - > , 2A2) 

108 FORMAT ( "WARNING : file "3A2 M already e 
t“allow purge or enter any char-' 1 , 

*/>" acter but T to change file 

109 FORMAT ( ” ABSRV : PURGE M 3A2 " : 11 A2 - : ,f 

110 FORMAT ( A1 " 1 " ) 

111 FORMAT < u ABSRV : File name "3A2" sue 

112 FORMAT ('• ABSRV : CREATE "3A2 “ : " A2 " : " 

113 FORMAT ( ** " 15X "Read the probe positions 
ton . “ 1 4X '* " A2 ) 

114 FORMAT (" Enter case angle "34X , 2A2 ) 

115 FORMAT ( /21X " Immersi on “liX M Yaw Anqle H / 

*24X " inches " 19X" ' "7 

t" Combination probe "FI 0 . 3 , 1 OX , Fi 0 . 3'* 
f Type > A > probe n F10 . 3, 10X , F10 . 3 M 

* M Type > 3 > probe M F10 . 3 . 1 OX , F10 . 3" 

t M Case angle "20X M "F10 . 3 M "// 

t*Type UP to update those readings"/ 
t H TA to take a data set at this 

t M " 2 A 2 ) 

116 FORMAT (" ABSRV : CALL P ACER ( "I2 M ) " ) 

117 FORMAT ( /" "79X M M A2/ " Check raw data 
t yaw position for obvious errors!"18X" 
*A2/ 

**' Type RE to repeat this point"48X" 



/ A > and type > B / probes 

t to calibrate 
now. " 6X M '* A2/ " P 
ecution of the p 

s from the on line cali 



the type 'A* and type > 

xists! Type PU to " 

name . ”38X) 

A2 ) 

cesfully changed to "3A2> 
A2 " : "IlS "I2 M : "13) 

Yaw Angle and Immersi 



"/ 

■V 

“// 



c onste Hat ion "/ 



from this"I2" . 
M A2/" "79X H " 

"A2/ 
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0175 

0176 

0177 

0178 

0179 

0180 
0181 
0182 

0183 

0184 

0185 

0186 

0187 

0188 

0189 

0190 

0191 

0192 

0193 

0194 



NE to proceed to the next p o in t rt 40X M w A2/ 

EN to terminate the * A ' B } -pr obe survey at 



* £N to terminate the 7 A 9 & 9 -pr obe survey 

♦this rad i us/operat ing point“A2/ 

* H M 7X M "70X "^A2/ 

*8X* '* 2 < " " ) 2A2 ) 

118 FORMAT^" Errors You want to oroceed to the“I2 M , positio 
*n , but the data array onl y M 3X" * A2/ 

♦ can store “ 12“ positions, that you defined pre viuosly ! H 37X r 

♦ **A2) 

149 FORMAT < Hrt <<3A2)>) 

601 FORMAT < 1H ,15(1H ) ,33HTransson ic Compressor Test Run * ,I7> 

602 FORMAT <1H ,28<1H ),6HDate! , A2 , 1H/ > A2 , 1H/ , A2 ) 

603 FORMAT <1H > M ",29<1H )>6HTime: , A2 , 1H . , A2 , 3H h, /////) 

604 FORMAT < 1H *"'///// 

♦ % " > A > > l» r* |-n ■:> |:> 



V//777T 



| :> r» ° I;? if. 



605 FORMAT < " “72X"“//“* M 4iX B ** X 2> ** . Yaw i:> o <r» .i. V L o r* •*> 

606 FORMAT (/42T rTr T. 2 •' . Yaw iDOsitlonV "72X BB > 

607 FORMAT < “ 



“ , 28< 1H >,6HTi(«ie: , A2, iH. ,A2,3H h) 
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019S 

m 

0198 



1 :: O & MAT* 3 A X* 3 R ^ 3 T O P 



0217 

0218 

0219 

0220 
0221 
0222 

0223 

0224 

0225 

0226 

0227 

0228 

0229 

0230 

0231 

0232 

Si I? 

0235 

0236 

0237 

0238 

0239 

0240 

0241 

0242 

0243 

0244 

0245 

0246 

0247 

0248 

0249 



0200 


C 






0201 


c 


. Accounting. 


0202 


c 






0203 


c 






0204 




IPAGE 


= CNTRL (212) 


0205 




IDOC 


= CNTRL (213) 


0206 




IDOCF 


= CNTRL ( 21 3 ) 


0207 




IPAGE 


* IPAGE+i 


0208 




IDOC 


= IDGC+i 


0209 




IDOCF 


= IDOCF+i 


0210 




I3ECU 


* CNTRL (31) 


0211 




ICR 


= CNTRL ( 30 ) 


0212 




ISIZE (2 ) 


= 128 


0213 




IFILE ( 2 ) 


= ICONCCNTRL ( 4) , 0 ) 


0214 




IL 


= 128 


0215 




ITYPE 


= 1 


0216 




IFRST 


= 2HT 1 



C 

C 

c 

c 

c 



c 

c 

c 

c 

c 

c 




LI = CNTRL ( 19 ) 

LQ = CNTRL ( 20 ) 

LSI » CNTRL ( 71 ) 

LS2 * CNTRL C 72 ) 

DO 01 1 = 1 , 768 , 1 
01 IBUF ( I ) = 025052B 



Ask operator, whether the ' A > B ' -pr obe system has been 
calibrated on line. 



WRITE (LI, 101) NOCR 

READ (LI 102) ICAL 

WRITE (LI. 149) ICLR 

IF ( ICAL' ,EQ. 2H*S ) STOP 0101 

IF ( ICAL .NE. 2HNO ) GO TO 02 



C 

C 
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0250 

0251 

0252 

0253 

0254 

0255 

0256 

0257 

0258 

0259 

0260 
0261 
0262 

0263 

0264 

0265 

0266 

0267 

0268 

0269 

0270 

0271 

0272 

0273 

0274 

0275 

0276 

0277 

0278 

0279 

0280 
0281 
0282 

0283 

0284 

0285 

0286 
0287 
0289 

0289 

0290 

0291 

0292 

0293 

0294 

0295 

0296 

0297 

0298 

0299 

0300 

0301 

0302 

0303 

0304 

0305 

0306 

0307 

0308 

0309 

0310 

0311 

0312 

0313 

0314 

0315 

0316 

0317 

0318 

0319 

0320 

0321 

0322 

0323 

0324 



C 

c 

c 



. Call subroutine CALIB to calibrate > A'-'B'-probe systen. 

WRITE ' (LI ) ' 1 03) ' (N0LF;i=i)4;ij 

READ (LI, 102) IDUM 

WRITE (LI, 149) (ICLR,I=i ,7,1 ) 

IF ( IDUM . EG . 2H$* ) STOP 0102 

WRITE (LI, 104) 

CALL CALIB 



C 

c 

c 

C 

c 




02 WRITE (LI, 105) NOLF 

READ (LI, 106) SLOPEA .SECQNA , SLOPEB , SECONB > AURGEA , AURGEB , PBARO 
WRITE (LI, 149) ( ICLR , I = 1 , 4 , 1 $ 

CALL TIME ( I MON , I YEAR , I DAY , I HOUR , IMIN ) 

WRITE (LO, 601) CNTRLC4) 

WRITE (LO, 602) I MON, I YEAR , I DAY 
WRITE (LO, 603) IHOUR,IMIN 
WRITE (LQ, 604) IPAGE 



C 

C 

C 

c 

c 

c 

c 

c 



Initialize data acquisition; create raw data file of the 
correct size. If the file name assigned to this data set 
already exists, the operator decides, whether to purge the 
already existing file (PU) or change this file na«e . 



WRITE (LI, 107) NCCR 
READ (LI, *> NPOS 
WRITE (LI, 149) ICLR 
ISIZE(i) = i+NPQS*6 
IF ( IDOCF . LT 
IFRST = 2HS1 
IDOCF = IDOCF-i 0 0 



100 ) GO TO 03 



03 IFTLE(i) « IFRST 
IFILE (3 ) = ICON( IDOCF , 0 ) 

04 CALL CREAT ( IDCB , TERR, IFILE ,ISIZE , ITYPE , ISECU , ICR , IDCBS) 
IF ( IERR .GT. 0 ) 60 TO 66 

WRITE (LI, 108) IFILE 
READ (LI, 102) IDUM 



WRITE (LI, 149) ( ICLR , 1=1,3 ) 

IF ( IDUM .EG. 2H*$ ) STOP 0103 



IF ( IDUM . NE . 2HPU ) GO TO OS 
JSECU a ICQN( ISECU, 0) 

JCR = ICON ( ICR ,0) 

WRITE (LI, 109) IFILE, JSECU, JCR 

CALL PURG£ (IDCB, IERR, 'iFILE, ISECU, ICR) 

IF ( IERR .LT. 0 ) STOP 0104 
GO TO 04 

05 CALL CODE 

WRITE (NEW, 110) IDUM 

WRITE (LI, ill) IFILE, NEW, IFILE(2).,IFILE(3) 

IFILE ( 1 ) a NEW 
GO TO 04 

06 CALL OPEN ( IDCB , IERR, IFILE , IOPTN , ISECU , ICR , IDCBS ) 
IF ( IERR .LT. 0 ) STOP OIOS 

DO 07 1 = 1 , NPOS 1 1 
IREC a i+(I-i)*6 

CALL WRITF ( IDCB , IERR , IBUF .768 , IREC) 

IF ( IERR .LT. 0 ) STOP 0106 

07 CONTINUE 

JSECU = ICON( ISECU, 0) 

JCR = ICON ( ICR , 0 } 

WRITE (LI, 112) IFILE, JSECU, JCR, ITYPE, ISIZE 
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0325 

0326 

0327 

0328 

0329 

0330 

0331 

0332 

0333 

0334 

0335 

0336 

0337 

0338 

0339 

0340 

0341 

0342 

0343 

0344 

0345 

0346 

0347 

0348 

0349 

0350 

0351 

0352 

0353 

0354 

0355 

0356 

0357 

0358 

0359 

m 

0362 

0363 

0364 

0365 

0366 

0367 

0368 

0369 

0370 

0371 

0372 

0373 

0374 

0375 

0376 

0377 

0378 

0379 

0380 

0381 

0382 

0383 

0384 

0385 

0386 

0387 

0388 

0389 

0390 

0391 

0392 

0393 

0394 

0395 

0396 

0397 

0398 

0399 



C 

C 

c 

c 

c 

c 

c 

c 

c 



c 

c 

c 

c 

c 



c 

c 

c 

c 

c 



c 

c 

c 

c 

c 

c 

c 

c 



08 

09 



10 



11 

12 

13 

14 



15 



16 



ABSRV 2:47 PM MON . , 2S AUG,, 1980 



Position the raw data file is done bv subroutine ABSRV. The 
actual data are written in the data file by subroutine PACER. 
CNTRL(37) is set to 1 in order to suppress printing a heading 
in subroutine PACER. CNTRL(3?) is set to 1 to tell subrou- 
tine PACER not to create/open and close a new data file. 



IP6£ = 0 

IPOS = IPOS+i 

IF < IPOS .GT, NPOS ) GO TO 19 
CNTRL ( 37 ) =* 1 
CNTRL ( 38 ) = IPOS 
CNTRL (39 ) « 1 

IF ( IPOS . EO . 1 ) WRITE (LO, 605) IPOS 
IF ( IPOS .GT. 1 ) WRITE (LO, 606) IPOS 
IREC = 2+( IPOS-i ) *6 
CALL POSNT <IDCB,IFRR,1 ,IREC) 

IF ( IERR .LT. 0 ) STOP 0107 




WRITE ( LI , 113) NOLF 
IC = l 

12 = 1 
DO ii J~3Q,3S>1 
P QS ( 1 2 ) = SCANRCLSl , J,IC> 

£8s(?) J = i f i i^?J)*i000 . 

DO 13 J=2 , 6,2 
POS(J) = POS( J)*10000 . 

WRITE (LI, 149) ICLR 
WRITE (LI, 114) NOCR 
READ (LI, *) POS ( 7 ) 

WRITE (LI, 149) ICLR 

WRITE (LI, 115) (POS( J) , J=1 ,7,1 ) ,NOCR 

READ (LI, 102) IDUM 

WRITE (LI, 149) ( ICLR , 1=1,12,1 ) 

IF ( IDUM . EQ . 2HUP ) GO TO 10 



IF ( IDUM 
IF ( IDUM 
GO TO 14 



.EQ. 

.EQ. 



2HTA ) GO TO IS 
2HSS ) STOP 01 10 



Acquire data in subroutine PACER. 



WRITE (LI, 
CALL PACER 



116) IREC 
(IREC) 



Select 

RE 

NE 

EN 



WRITE (LI 
READ (LI 
WRITE (LI 
IF ( IDUM 



> 

> 

} 



the next step: 

repeat the data acquisition at this yaw position 

proceed to the nect yaw position 

terminate the survey at this operating point 



117) 

102 ) 

149) 

.EQ. 



nolf j ip6s ) (n&lf; i=i 

IDUM 



<ICt.R,I = i ,9,1 ) 
2HNE ) GO TO 08 
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0400 

0401 

0402 

0403 

0404 

0405 

0406 

0407 

0408 

0409 

0410 

0411 

0412 

0413 

0414 

0415 

0416 

0417 

0418 

0419 

0420 

0421 

0422 
0 423 

0424 

0425 

0426 

0427 

0428 

0429 

0430 

0431 

0432 

0433 

0434 

0435 

0436 

0437 

0438 

0439 

0440 

0441 

0442 

0443 

0444 

0445 

0446 

0447 

0448 

0449 

0450 

0451 
0 452 
0453 

ttH 

0 456 
0457 



C 

C 

c 

c 

c 

c 

c 



c 

c 

c 

c 

c 

c 



c 

c 

c 

c 

c 



IF ( IDUM 
IF ( IDUM 
IF ( IDUM 
GO TO 16 



2HRE ) GO TO 09 
2HEN ) GO TO 17 
2HSS ) STOP 0111 



Stop data acquisition. Unit* additional data (i.e. barome- 
tric pressure, calibration results, number of points and yaw 
positions into first record (Directory) of the data file. 



17 CONTINUE 

DO 18 1 = 1 , 129,1 

18 IBUF(I) = 02S0S2B 
IBUF(l) = 256 
IBUF ( 2 ) = NPOS 
RBUF (2 ) = PBARO 
RBUF ( 3 ) = PREF 
RBUF (4 ) = AURGEA 
RBUF ( 5 ) = AURGEB 
RBUF (6) = SLOPEA 
RBUF ( 7 ) = SECONA 
RBUF < 8) = SLOPES 
RBUF ( 9 ) = SECONB 

CALL TIME ( IBUF ( 96 ) , IBUF (104) , IBUF (112) , IBUF ( 120 ) , IBUF ( 128) ) 
IREC = i 

CALL WRITF ( IDCB, IERR , IBUF .IL^IREC) 

IF ( IERR .LT. 0 ) STOP 6ll2 
CALL CLOSE (IDCB, IERR) 

IF ( IERR .LT. 0 ) STOP 0113 
WRITE (LO, 607) IBUF ( 120 ), IBUF< 128 ) 



Terminate subroutine; write accounting variables back into 
control array . 



CNTRL ( 212 ) = IPAGE 
CNTRL ( 213 ) = IDOC 
CNTRL ( 50) = -1 
RETURN 



Error returns. 



19 WRltE <Lt, U6> ipos,n6lf,npos,ni5lf 
GO TO 17 
END 



FTN4 COMPILER: HP92060-16092 REV. 1926 <790430) 

** NO WARNINGS ** NO ERRORS ** PROGRAM * 02498 COMMON = 00000 
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0458 

0459 

0460 

0461 

0462 

0463 

0464 

0465 

0466 

0467 

0468 

0469 

0470 

0471 

0472 

0473 

0474 

0475 

0476 

0477 

0478 

0479 

0480 

0481 

0482 

0483 

0484 

0485 

0486 

0487 

0488 

0489 

0490 

0491 

0492 

0493 

0494 

0495 

0496 

0497 

0498 

0499 

0500 

0501 

0502 

0503 

0504 

0505 

0506 

0507 

0508 

0509 

0510 

0511 

0512 

0513 

0514 

0515 

0516 



0 STT 

0518 

0519 

0520 

0521 

0522 

0523 

0524 



C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



SUBROUTINE CALIB 



Subroutine to control the on line calibration of the KULITE 
type > A' B > ~pr obe system. 

Author: Hans Zebner 

Date: August 13, 1980 

A detailed program description is available in the TXCO loq. 
Comment statements and statement numbers in the source code 
match to the program description. This subroutine is part of 
the TXCO transonic compressor investigation program system. 



*, On-line calibration of KULITE probes. 

COMMON / CONTR / CNTRL 
INTEGER CNTRL (256 ) 

REAL AVOLT(IO) , BUOLT (10) >R PRES (10) , DMM < 1 0 > 

INTEGER NOCR(2),ICLR(3) , ITIME ( 5 ) , IQ ( 5 ) 

DATA NOLF /006S37B/ 

DATA NOCR /0 0 0 033B , 040 433B/ 

DATA ICLR /015524B , 0 15515B , 0 06537B/ 

\ " a R M *r <!> (3 l._ X X* STAR T 

101 FORMAT (/ u "79X* M A2/ M Apply defined reference pressur 
*e to KULITE pressure transducers! Input DMM M A2/ 

t " multimeter read out to initialize calibration, RE 
*to repeat this part of the ”A2/ 

* H calibration or EN to terminate the on line calibr 
Nation ! M 21X " " A2/ " M 79X*”V 
# » » a 2 ) 

102 FOTTMAT (5A2) 

103 FORMAT (FIG. 6) 

104 FORMAT ( " CALIB : CALL 

105 FORMAT ( " Switch PACER 
*CR to continue! "3A2) 

106 FORMAT ( " Switch PACER 

* CR to continue 1 U 3A2) 

107 FORMAT ( " CALIB 

108 FORMAT ( - Error 
*» M 3 0 X '* '* A2 ) 

109 FORMAT < " Error 
*ust one point is 
*" to 

* i t ! " 1 
149 FORMAT 



FREER "> 
to free 



run 



to pacer run 



CALL PACER ( "12” >’*) 
You did not perform 



mode ; 
mode 



then 

then 



press 

press 



a calibration at ail 



give an 
SX M " A2 ) 



Please, ask yourself honestly, whether j 
uff icient "4X' IM A2/ 
accurate calibration curve fit? I frankly doubt 



( (3A2) ) 



601 FORMAT ( 1H 

602 FORMAT ( 1H 

603 FORMAT (1H 

604 FORMAT ( 1H 

* x - a r% 

605 FORMAT (/" 

606 FORMAT 

* H “ / ) 



( /“ 



,15(1H ) ,33HTranssonic Compressor Test Run ♦ ,17) 
, 28 ( 1 H ) , 6HDat e : , A2 , 1H/ , A2 , 1H/ , A2 > 

, “ “ , 28 < 1H ) , 6HT ime : , A2 , 1H . , A2 , 3H h, /////) 

' n u 9 / / / / / 

fU.-j/.Q ■•!»... 4,.. ??■ X'.FA. . A. 5? .???. P /^L t ** X 

Ml 1 , rtfe rtnce ortssgff applied '* /) 

[to 1 1 hrntion cone: take'bocsd'rrm lata “ , 



~6U7^F0RMAT (//lX“Ca !1. i. b r rx *l* X o n r* <*> ir> u !l. t ir> : "/) 

608 FORMAT < IX " AU0LTT^ v TI*"T=^8”.*-6*^”'By0LTT^Tr^ RP RES (" II")*" 

*F3, 6 " DMM ( ,, I1 ,, ) = U F8. 6) 

609 FORMAT </lX"T ype * A > P r* o l:> *> : u // 

* i x “ slop e *"f 

610 FORMAT </lX"*r y K? ^ * X* > P r' o l:> *> : "// 

* 1 X SLOP E * ■ F i(TV‘6 V ‘*'“SECtJFT’=^FT076*7T 

611 FORMAT ( H 



,2S(1H ) , 6HT ime : , A2 , 1H . ,A2,3H h) 
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0525 

°ofB 

0529 

0529 

0530 

0531 

0532 



C 

c 

c 

c 



i :r o r m r c u :i: i* <3 nr a p 



Accounting . 
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0533 

0534 

0535 

0536 

0537 

0538 

0539 

0540 

0541 

0542 

0543 

0544 

0545 

0546 

0547 

0548 

0549 

0550 

0551 

0552 

0553 

0554 

0555 

0556 

0557 

0558 

0559 

0560 

0561 

0562 

0563 

0564 

0565 

0566 

0567 

m 

0570 

0571 

0572 

0573 

0574 

0575 

0576 

0577 

0578 

0579 

0580 

0581 

0582 

0583 

0584 

0585 
0506 
0587 
0508 

0589 

0590 

0591 

0592 

0593 

0594 

0595 

0596 

0597 

0598 

0599 

0600 
0601 
0602 

0603 

0604 

0605 

0606 
0607 



C 



c 

c 

c 

c 

c 



c 

c 

c 

c 

c 

c 

c 

c 



8 

c 

c 

c 

c 

c 

c 



c. 

c 

c 

c 

c 



IPAGE = CNTRL (214) 

IPAGE = IPAGE+i 



I/O Assignments* print heading. 



LI = CNTRL ( 19 ) 

LO = CNTRL ( 20 ) 

CALL TIME ( I MON , IDAY , I YEAR , I HOUR , IMIN) 
WRITE (LO, 601) CNTRll<4) 

WRITE (LO, 602) I MON, I DAY, I YEAR 

WRITE (LO, 603) IHOUR,IMIN 

WRITE (LO, 604) IPAGE 

IPTS = 0 



Limit on line calibration calibration to two A/D channels, 
that contain the type ' A ' and > B } probe output uoltaqe. 

The current ualue of CNTRL(230> is temporaryly stored in 
the 'variable ITEMP. 



IPREU = CNTRL ( 230 ) 
CNTRL ( 230 ) = 2 



Select the next step! 

Repeat this point 



RE 
EN 

any number 



Terminate the on line calibration 
Proceed to the next point 



01 WRITE (LI, 101) 

READ (LI, 102) 

WRITE (LI, 149) 

IF ( 10(1$ .EQ. 

IF ( IO(l) .EQ. 

IF ( IO(i) .EQ. 

IDUM = 0 
DO 02 1=1, 5,1 

02 IF ( IO(I) .NE, 2H 

IF < IDUM .EQ. 0 

CALL CODE 

READ (IQ, 103) DM 



(NOLF, 1=1,5, 1) 

IO 

( ICLR > 1=1 . 8 , i ) 

2hr £ ) in TO 01 
2HEN ) GO TO 10 
2H** ) STOP 0201 



IDUM = 1 
GO TO 01 



Take free run data at a defined reference pressure . 



03 IPTS = IPTS+1 
DMM(IPTS) = DM 

04 WRITE (LI, 104) 

WRITE (LI, 105) NOCR 
READ (LI, 102) IDUM 
WRITE (LI, 149) ICLR 

IF < IDUM .EQ. 2H$$ ) STOP 0202 
CNTRL (37) = 1 
CNTRL (38) = IPTS 
WRITE (LO, 605) IPTS 

CALL FREER ( AUOLT (IPTS) , BVOLT < IPTS ) , RPRES ( IPTS ) ) 
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1980 



0608 

0609 

0610 
0611 
0612 

0613 

0614 

0615 

0616 

0617 

0618 

0619 

0620 
0621 
0622 

0623 

0624 

0625 

0626 

0627 

0628 

0629 

0630 

0631 

0632 

0633 

0634 

0635 

0636 

0637 

0638 

0639 

0640 

0641 

0642 

0643 
0 644 

0645 

0646 

0647 

0648 

0649 

0650 

0651 

0652 

0653 

0654 

0655 

0656 

0657 

0658 

0659 

0660 
0661 
0662 

0663 

0664 

0665 

0666 

0667 

0668 

0669 

0670 

0671 

0672 

0673 
0 674 

0675 

0676 

0677 

0678 

0679 

0680 
0681 
0682 



C 

C 

c 

c 

c 

c 

c 

c 



c 

c 

c 

c 

c 



c 

c 

c 

c 

c 



c 

c 

c 

c 

c 

c 



05 



Select the next step: 

RE Repeat this point 

EN Terminate the on line calibration 

any number Proceed to the next point 



WRITE (LI, 101) (NOLF, 1=1 ,S, l> 

READ (LI, 102) IO 

WRITE (LI, 149) ( ICLR >1=1 >8 , 1 ) 

IF ( IO(l) . EQ . 2HRE ) GO TO 04 

IF ( IO(i> ““ “ 

IF ( 10(1) 

IDUM = 0 



-. 18 : 



2HEN ) GO TO 07 
2H$$ ) STOP 0203 



06 



DO 06 1=1,5, 1 
IF ( IO(I) ,NE. 
IF ( IDUM .EQ. 
CALL CODE 
READ (10,103) DM 
GO TO 03 



2H 

0 



) IDUM = 1 
) GO TO 05 




07 IF ( IPTS .EQ 
CNTRL ( 37 ) = 1 
CNTRL ( 38 ) = 1 
WRITE (LI, 106) NOCR 

READ (LI, 102) 

WRITE (LI, 149) 

IF ( IDUM .EQ. 

IREC = 1 

WRITE (LI, 107) 

WRITE ( LO , 606) 

CALL PACER (IREC) 



) GO TO 11 



IDUM 

ICLR 

2H*S.) STOP 0204 
IREC 




WRITE (LO, 607) 

DO 08 1 = 1 , IPTS, 1 

08 WRITE (LO, 608) I t A VOLT ( I ) , I , BVOLT (I), I , RPRES ( I ) ,1, DMM< I ) 
CALL CURVE (IPTS .AVOLT, RPRES, SLOPE, SECON) 

WRITE (LO, 609) SLOPE, SECON 

5ife i ^-^w® 0 E L ,yro' , N ESi •«- oee - sEcw> 



Terminate subroutine: urite accounting variables back into 

control array} set CNTRL(230) back to its previous value. 

09 CNTRL < * 37) * = -1 

CNTRL ( 38) = 1 
CNTRL ( 50) = -2 
CNTRL ( 214 ) = IPAGE 
CNTRL ( 230 ) = IPREV 

CALL TIME ( IMQN , IDAY , IYEAR , I HOUR , IMIN) 

WRITE (LO, 61 1 > IHOU£ , IMIN 
RETURN 
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0 683 












0684 

0685 


c 










c 




» 






0686 


c 




. Error returns. 




0687 


c 




* 






0688 

068? 


c 












10 


WRITE 


(LI, 108) NOLF 




0690 






GO TO 


09 




0691 




11 


WRITE 


(LI, 109) (NOLF, 1 = 1, 2,1) 




0692 

0693 

0694 

0695 






GO TO 


09 




0696 






END 







FTN4 COMPILER : HP92060-16092 REV. 1926 (790430) 

** HO WARNINGS ** NO ERRORS ** PROGRAM = 01525 COMMON = 00000 
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0697 

0698 

0699 

0700 

0701 

0702 

0703 

0704 

0705 

0706 

0707 

0708 

0709 

0710 

0711 

0712 

0713 

0714 

0715 

0716 

0717 

0718 

0719 

0720 

0721 

0722 

0723 

0724 

0725 

0726 

0727 

0728 

0729 

0730 

0731 

0732 

0733 

0734 

0735 

0736 

0737 

0738 

0739 

0740 

0741 

0742 

0743 

0744 

0745 

0746 

0747 

0748 

0749 

0750 

0751 

0752 

0753 

0754 

0755 

0756 

0757 

0758 

0759 

0760 

0761 

0762 

0763 

0764 

0765 

0766 



C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 



SUBROUTINE FREER ( AUOLT , BVQLT , PREFR ) 



Subroutine to acquire data using the HP 5610A A/D converter, 
if the A/D converter is operated in free run node. 

Author: Hans Zebner 

Date: August 14> 1980 

A detailed program description is available in the TXCO log. 
Comment statements and statement numbers in the source code 
match to the program description. This subroutine is part of 
the TXCO transonic compressor investigation program system. 



*, Takes data from KULITE probes; A/D free run mode, 

COMMON / CIBUF / IBUF 
COMMON / CONTR / CNTRL 

COMMON / FMP / IDCB , IFILE , ISIZE , ISECU , ICR 

INTEGER IBUF < 1664 ) 

INTEGER CNTRL ( 256 ) 

INTEGER IDCB (144) , IFILE (3) , ISIZE (2) 

INTEGER NOLF , NOCR < 2 ) ,ICLR<3) ,I0XIM<9) 



DATA 

DATA 

DATA 

DATA 

DATA 



NOLF 

NOCR 

ICLR 

FSULT 

IDCBS 



/006537B/ 

/000033B, 040433B/ 

/0 15524B , 0 15515B , 0 06537B/ 



101 

102 

103 

104 

105 

106 

107 

108 



Mil 

R O R M V <:> F* R IH! EE R S3 3’ A R X 



FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
*"allow 
*/> " 

109 FORMAT 

110 FORMAT 

111 FORMAT 

148 FORMAT 

149 FORMAT 

601 FORMAT 

602 FORMAT 

603 FORMAT 

604 FORMAT 

* »• | :r 

*>/// /T 

605 FORMAT 

* 



( ""27X "acquiring additional data ll 27X M “A2) 

<“B "F7 . 6 > F? .6 > 

(“A "F7 , 6 , F9 . 6 )’ 

(18H Wall KULITE) 

( ,, *28X B acgu Lring data from A/D "28X " "A2) 

( w M 24X"caiculat mg the average v a 1 taqe M 24X " " A2 > 

< * H 26X“storing data in file *3A2 , 26X * “A2) 

(‘•WARNING: file "3A2" already exists! Type PU to ' 
purge or enter any char-'*, 

acter but T to change file name.“38X) 

<" FREER : PURGE "3A2" : *A2“ : "A2) 

( A1-2-) 

< * FREER : File name “3A2* succesfully changed to 
( /3A2) 

( ( 3A2 ) ) 



U 3A2) 



< IH 
(IH 
(IH 
(IH , 
r* k : > e 



,15(1H ) ,33HTranssonic Compressor Test Run * >17) 
, 28 ( IN ) , 6HDate : , A2, IH/, A2, IH/, A2) 

, , 28 ( IH ) , 6HT ime : , A2 , IH . , A2 , 3H h, /////) 

““'/////, 8* 

O E* 



R u 



J iL&sajzJLZSS- 



r * M /iX“ "72X“ *•/ 
A/D input 



( /1X H “72X' 

ix- — 

* "f 

* IX* ♦ sample channel 

* ♦ points VlX u,, 72X tt */ 

* lX-Combination pr obe : "54X" “/ 

* lX H immersion yaw a. pi p23 

* Tt dT “/iX a M 72X* */ 

* 1X**KULITE probe: reference rotor 

* starting"/ 

* lX u immersion yaw a. pressure RPM 

* data in file record *"/iX “ *72X * M /) 

606 FORMAT ( IH ) 

607 FORMAT (iX ,# *72X" , ViX” M 2I9,45X,I9 ,, VtX M "7F9.6> w 
*”9X"‘ViX""9A2,F9.6,I9,F9.£,6X,3A2" : "A2* : “A2,i9 w *V 
* iX* a 72X‘* H ) 

608 FORMAT C “ 



p4 

average 

voltage 



• ,28< IH ) , 6HTime : , A2, IH . ,A2,3H h) 



120 



0767 901 FORMAT <" ERROR DETECTED IN PROGRAM FREER"/ 

0768 * '' CALL EXEC < 1 , 30 , IBIJF< 1 ) , “ 14 - “ 12”, 4 ) B > 

0769 902 FORMAT <“ A REGISTER “K6" B REGISTER IS “K6/) 

0770 C I” O R MA T 3 I- R I- K V. R 3 T O P 

0771 



121 



PAGE 0016 FREER 2:47 PH MON,, 25 AUG., 1990 



0772 

0773 



U / / 

0775 

0776 

0777 

0778 


DOOOC 


. Accounting. 


0779 




IPAGE 


= 


CNTRL < 216) 


0780 




IDOC 




CNTRLC217) 


0781 




IDOCF 


= 


CNTRL (217) 


0782 




IPAGE 


= 


IP AGE+1 


0783 




ISECU 


= 


CNTRL ( 31 ) 


0784 




ICR 


= 


CNTRL < 30 ) 


0785 




ISIZE(l) 


= 


13 


0786 




ISIZEC2) 


= 


128 


0 787 




IFILEC2) 


s 


ICON ( CNTRL ( 4 ) , 0 ) 


0788 




ITYPE 


2 


1 


0789 




IFRST 


2 


2HT2 


0790 




ISP 


= 


0 


0791 




IL 


as 


1664 



0792 

0793 

0794 

0795 

0796 



0821 

0822 

0823 

0824 

0825 

0826 

0827 

0828 

0829 

0830 

0831 

0832 

0833 

0834 

0835 

0836 

0837 

0838 

0839 

0840 

0841 

0842 

0843 

0844 

0845 

0846 



C 

C 

c 

c 

c 



0797 

0798 

0799 


C 

C 

c 


. I/O Assignments j preset data array . 


0800 




DO 01 1= 


1,1664,1 


0801 




01 IBUFCI) 


=* 177777B 


0802 




LI 


= CNTRL ( 19 ) 


0803 




LO 


= CNTRLC 20 ) 


0804 




LSI 


* CNTRL ( 71 ) 


0805 




LS2 


= CNTRLC72) 


0806 




ISUi 


= CNTRL( 61 ) 


0807 




ISU4 


= CNTRL (64 ) 


0808 




NRPT1 


= CNTRL ( 230 ) 


0809 




NRPT2 


= CNTRL ( 251 ) 


0810 




NRPT3 


= NRPT2+1 


0811 




IMASK 


= 17770 0B 


0812 




IW 


=* CNTRL ( 250 ) 


0813 








0814 








0815 








0816 


c 






0817 


C 




■ 


0818 


C 


. Print 


heading, unless CNTRL(37) is set to 1, . 


0819 


c 




« 


0820 


c 







IF ( CNTRLC37) . EQ . 1 ) GO TO 02 

CALL TIME ( IMON , ID AY, I YEAR , I HOUR , IMIN) 
WRITE (LG, 601) CNTRd(4) 

WRITE (LO, 602) I MON, I DAY, I YEAR 
WRITE (LO, 603) IHOUR,IMIN 
WRITE ( LO , 604) IPAGE 

02 IF ( CNTRL ( 38 ) .EQ. 1 ) WRITE (LO, 605) 




03 



DO 19 
WRITE 
ICHNL 
I DOC 
IDOCF 
IF ( IDOCF 
IFRST 
IDOCF 

IFILE(i) = 
IFILEC3) = 



Ji s i ,NRPTi , 1 
(LI, 101) NOLF 
= CNTRL (230+J 1 ) 

= IDOC+i 
= IDOCF+1 

. LT . 100 

2HS2 

IDOCF-i 0 0 
IFRST 

ICON ( IDOCF , 0 ) 



) GO TO 03 
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0847 

0848 

0849 

0850 

0851 

0852 

0853 

0854 

0855 

0856 

0857 

0858 

0859 

0860 
0861 
0862 

0863 

0864 

0865 

0866 
0867 
0863 

0869 

0870 

0871 

0872 

0873 

0874 

0875 

0876 

0877 

0878 

0879 

0880 
0881 
0882 

0883 

0884 

0885 

0886 

0887 

0888 

0889 

0890 

0891 

0892 

0893 

0894 

0895 

0896 

0897 

0898 

0899 

0900 

0901 

0902 

0903 

0904 

0905 

0906 

0907 

0908 

0909 

0910 

0911 

0912 

0913 

0914 

0915 

0916 

0917 

0918 

0919 

0920 

0921 



C 

c 

c 

c 

c 



c 

c 

c 

c 

c 



c 

c 

c 



8 



c 

c 

c 

c 

c 



c 

c 

c 

c 

c 



c 

c 

c 

c 

c 



04 



05 



06 



07 



Acquire additional data required for reduction procedure 



f^REQ * SCANR < LSI , 17, £ ) 
FREQ - FREQ*1 0 , 0 
CIM = SCANR (LSI, 30,1) 
CYAU = SCANR(LSi ,31 ,1) 
PREF a SCANR<LSi 37,1) 
PREFR a PREF 

PI » ACQN ( I SV4 , 3 , I W ) 
P23 = ACQNCISV4, 4,IW> 

P4 = ACQN < ISV4 , 5, IW) 
E =* SCANR CLS2 , 18 , 1 ) 

DE » SCANR (LS2,19,i) 



Get correct probe positions. 



IF < ICHNL .EQ. 0 ) GO TO 04 

IF ( ICHNL .EQ. 1 ) GO TO 05 
GO TO 06 



Type ; A' KULITE probe (on A/O input channel 0). 



XIM = SCANR ( LSI , 32, 1 ) 
YAW = SCANR ( LSI , 33 , 1 ) 
CALL CODE 

WRITE ( IOXIM, 102) XIM, YAW 
GO TO 07 



Type >9* KULITE probe (on A/O input channel 1). 



XIM = SCANR ( LSI , 34 , 1 ) 
YAW = SCANR ( LSI , 35 , 1 ) 
CALL CODE 

WRITE ( IOXIM ,103) XIM, YAW 
GO TO 07 



. Wall KULITE (on A/D input channels 2 and higher), 

CALL* CODE 

WRITE (IOXIM, 104) 



Preset unused elements of data array IBUF . 



IF ( NRPT2 .EQ, 1664 ) CO TO 09 
DO 08 J2=NRPT3, 1664,1 
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0922 

0923 

0924 

0925 

0926 

0927 

0928 

0929 

0930 

0931 

0932 

0933 

0934 

0935 

0936 

0937 

0938 

0939 

0940 

0941 

0942 

0943 

0944 

0945 

0946 

0947 

0948 

0949 

0950 

0951 

0952 

0953 

0954 

0955 

0956 

0957 

0958 

0959 

0960 

0961 

0962 

0963 

0964 

0965 

0966 

0967 

0968 

0969 

0970 

0971 

0972 

0973 

0974 

0975 

0976 

0977 

0978 

0979 

0980 

0981 

0982 

0983 

0984 

0985 

0986 

0987 

0988 

0989 

0990 

0991 

0992 

0993 

0994 

0995 

0996 



08 



IBUF < J2 ) 



OOOOOOB 



C 

C 

C 

c 

c 

c 

c 



c 

c 

c 

c 

c 



c 

c 

c 

c 

c 

c 

c 

c 



c 

c 

c 

c 

c 



12 

13 



14 



15 



16 



Read voltages frori A/J) converter into data array IBUF) 
Starting element is IBUF(D) A/D is operated in the 
free run node (4) . 





• 




09 


WRITE (Lt, 


10<5i NOLF 




CALL EXEC 
GO TO 11 


< 1+10 00 00B,20, IBUF (1) ,NRPT2, ICHNL, 4) 


10 


GO TO 12 




11 


CALL ABREG 
GO TO 21 


(IA, IB) 



Calculate average voltage. 



WRITE (LI, 106) NOLF 

DO 13 J2=l , NRPT2 , 1 

IBUF ( J2)=IAND( IBUF ( J2) , I MASK ) 

AVRGE = 0.0 

DO 14 J2=i,NRPT2 , 1 

AVRGE = AVkGE+FLuAT ( IBUF (. 72 ) ) 

AVRGE = FSVLT* ( ( AVRGE/ 32768 . 0 ) /NRPT2 ) 



Write average KULITE voltage (after anpl if icat i on and 
conversion to digital notation) into AVQLT and BVOLT, de- 
pending on what signal has been digitized) The type 'A' 
probe is on A/D input channel 0 and the type on 1. 



IF ( ICHNL 
IF ( ICHNL 



.EQ. 

.EQ. 



0 ) AVOLT = AVRGE 

1 ) BVOLT = AVRGE 



IF ( ISP 
ISP = 0 
IF ( CNTRL ( 37) 
ISP = i+ISP 



.LT. 5 ) GO TO 15 



.NE. 1 ) WRITE (LO, 606) 



Save data in file. 



17 



WRITE (LI, 107) IFILE, NOLF 

CALL CREAT ( IDCB , IERR > IFILE . ISIZE , I TYPE , ISECU , ICR , IDCBS ) 
IF ( IERR .GT. 0 ) 60 TO i8 > ' ' * 

WRITE (LI, 108) IFILE 

READ ( LI , „ 149) IDUM „ _ 

WRITE (LI, 149) ( ICLR , 1=1 >3 > 1 ) 

IF ( IDUM .EQ. 2H$* ) STOP 0301 
IF ( IDUM ME. 2HPU ) GO TO 17 
JSECU = ICON( ISECU, 0) 

JCR = ICQN( ICR , 0 5 

WRITE ( L I > 109) IFILE, JSECU, JCR 

CALL PURGE ( IDCB, IERR , IFILE, ISECU, ICR ) 

IF ( IERR .LT. 0 ) STOP 0302 
GO TO 16 
CALL CODE 
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0997 

0998 

0999 

1000 
1001 
1002 

1003 

1004 

1005 

1006 

1007 

1008 

1009 

1010 
1011 
1012 

1013 

1014 

1015 

1016 

1017 

1018 

1019 

1020 
1021 
1022 

1023 

1024 

1025 

1026 

1027 

1028 

1029 

1030 

1031 

mi 

1034 

1035 

1036 

1037 

1038 

1039 

1040 

1041 

1042 

1043 

1044 

1045 

1046 

1047 

1048 

1049 

1050 

1051 

1052 

1053 



C 

c 

c 

c 

c 



c 

c 

c 

c 

c 

c 



c 

c 

c 

c 

c 

c 



WRITE ( NEW >110) IDUM 

WRITE (LI, ill) IFILE,NEt4,IFILE(i> ,IFILE(2) 
IFILE(l) = NEW 
GO TO 16 

18 CALL OPEN ( IDCB , IERR ,IFILE , IOPTN , ISECU , ICR , IDCBS ) 
IF < IERR . LT. 0 ) §TOP 0.103 
CALL URITF ( IDCB , IERR ,IBUF ,IL) 

IF ( IERR . LT . 0 ) STOP 0304 

CALL CLOSE < IDCB , JERR . 0 ) 

IF ( IERR .LT. 0 ) ^TOP 0305 
WRITE (LI, 148) ICLR 
JSECU = ICON(ISECU,0> 

JCR = ICQN( ICR , 0 ) 



19 

I 



Stop data acquisition loop. 



WRITE <LO, 607) IDOC , ICHNL , NRPT2, CIM , CYAW , P 1 , P23 , P 4 , E , DE , IOXIM , P 
REF , FREQ, AVRGE, IFILE , JSEC0 , JCR , I R EC 



Terminate subroutine; write accounting variables back 
into control array, 



IF ( CNTRL ( 37 ) . EQ . 1 ) GO TO 20 
CALL TIME ( IMON , IDAY.IYEAR , I HOUR , IMIN ) 
WRITE (LO, 608) IHOUR,lrtIN 

20 Emu Hi : i 3 

CNTRL ( 50) = -3 
CNTRL ( 216 ) = IPAGE 
CNTRL ( 217 ) = IDOC 
RETURN 



Error returns f~om EXEC calls; output error message to the 
line printer and look what's in the A and 3 register. 



21 WRITE ( 6, 901) NRPT2 , ICHNL 
WRITE ( 6, 902) IA,IB 
GO TO 20 



END 



FTN4 COMPILER i HP92060-16Q92 REV . 1926 (790430) 

** NO WARNINGS ** NO ERRORS ** PROGRAM * 01829 COMMON = 00000 
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1054 

1055 

1056 

1057 

1058 

1059 

1060 
1061 
1062 

1063 

1064 

1065 

1066 

1067 

1068 



C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



SUBROUTINE PACER (IREC) 



Subroutine to acquire data using the HP 5610A A/O converter, 
if the A/O converter is triggered through the pacer (paced 
run node ) . 

Author: Hans Zebner 

Date: August 25, 1980 

A detailed proqran description is available in the TXCO log. 
Comment statements and statement numbers in the source code 
match to the program description. This subroutine is part of 
the TXCO transonic compressor investigation program system. 



*, Takes data from KULITE probes; A/D paced run mode. 



1069 

1070 

1071 

1072 

1073 

1074 

1075 

1076 

1077 

1078 

1079 

1080 
1081 
1082 

1083 

1084 

1085 

1086 

1087 

1088 

1089 

1090 

1091 

1092 

1093 

1094 

1095 

1096 

1097 

1098 
1099* 
1100 
1101 
1102 

1103 

1104 

1105 

1106 

1107 

1108 

1109 

1110 
1111 
1112 

1113 

1114 

1115 

1116 

1117 

1118 

1119 

1120 
1121 
1122 

1123 

1124 

1125 

1126 

1127 

1128 



CQMHON / CIBUF / IBUF 
COMMON / CONTR / CNTRL 

COMMON / FHP / IDCB , I FILE , ISIZE , ISECU , ICR 

INTEGER IBUF < 1664 ) 

INTEGER CNTRL < 256 ) 

INTEGER IDCB< 144) , IFILE<3) , ISIZE (2) 

I NTEGER NOLF , NOCR ( 2 ) , I CLR < 3 ) , IBUF 1 < 384 ) , IOX IM < 9 ) , I AVR GE < 2 ) 
EQUIVALENCE (IBUF(l) ,IBUFi(i) ) ,(IAVRGE(i) > AVRGE) 



DATA 

DATA 

DATA 

DATA 



required for reductio* 



be digitized 

on A/D input channel 11 13 . "/ 

the amplifier output to the oscilloscope 



NOLF /006537B/ 

NOCR /0000338,040433B/ 

£dcbs /^|^ 24B » 0iSS15B ^ 006S37B/ 

l~ OR MAT <:> P A ill HE R <:$ T A R X 

101 FORMAT ( *' "1 iX"acqu ir ing additional data 

pr ocedure “ 10X 1 * l, A2) 

102 FORMAT ( "A "FB . 6 , F9 . 6 ) 

103 FORMAT < "B°F8 . 6,F9 . 6) 

104 FORMAT (18H Wall KULITE) 

105 FORMAT ( " " / " “79X “ " / 14 The next signal to 
* in paced run mode is 
*" Plug in a lead from 

if you desire "/ 

** to monitor the data acquisition. Don't forget the c 

Comparator output siqnal! V ** "79X" V 

X* Press CR to continue the program e xec u t i. on ! "35X 14 

y it u 79X , i *' / ) 

106 FORMAT ( 14 "21X M d isp lay ing wave form on terminal LU* " 12 ,20X" 
C M A?) 

107 FORMAT (-«/hu 79x - v « check digitized output on a 
Auxiliary console against amplifier output fed into "/ 

S" A/D input channel "12“ . Press CR if data ^ 

*re OK. If an error is suspected V 

*" type RE to repeat this data acquisition ! "38X" “/ 

C“ “79X" "/ ) 

“ ( ""26X“storinq data in file "3A2 , 26X“ "A2 ) 

( “WARNING : File tt 3A2" already exists! Type 14 , 
allow purge or enter any char-", 

acter but T to change file name, "38X) 

PURGE "3A2" :*A2" : U A2> 



108 FORMAT 

109 FORMAT 
* tt PU to 
%/ M 

110 FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 



File name "3A2" succesfully changed to H 3A2) 



<" PACER 
( Al"3") 

<" PACER 
(IS, A2) 

( </3A2) > 

(3A2) 

(1H ,15(1H ) ,33HTransson ic Compressor Test Run * >17) 
(1H , 29 ( 1H ) , 6HDa te : , A2 , 1H/ , A2 , 1H/ , A2 ) 

(1H , " ,28( 1H ) , 6HT ime ; , A2, 1H . , A2 ,3H h, /////) 

(1H ,“•*./////, 8* 

* , - Pa a u* cf R u P f.n <n « ,f X 3 41 . 

X/////) 

605 FORMAT (/IX" "72X" "/IX" “72X" 14 / 

X IX" A/D input pacer blade 

Xcre- stop * repe-V 

X IX" # sample channel mode pair 

*men t count t i t ionsViX" M 72X" V 
X iX“Comb inat i on pr obe : “S4X" "/ 



111 

112 

113 

148 

149 
601 
602 

603 

604 



start 

count 



m 
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0021 PACER 
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1129 


* 


IX" inriersion v 


aw a . pi 


p23 


p4 


1130 


* Tt 


dT Vi 


X«m 72x «v 




1131 


* 


iX"Pr obe 


reference 


r o t or 


average 


1132 


* 


star ting '*/ 






1133 


* 


lX" innersi on y 


aw a . pressure 
X" H 72X*' V) 


RPM 


v o 1 tage 


1134 


* data 


in file record *'*/l 




1135 


609 FORMAT 


(i H ) 








1136 


610 FORMAT 


(IX" “72X H "/IX** "819 


“"/IX" “7F9 . 6 , 9X“ 


M 




1137 


*/" "9A 


2>F9.6>I9 ) F9.6 > 6X > 3A2 " : " A2 M : M A2 , 19 M 


V" ,. 72X 


« 


1138 


***) 










1139 


611 FORMAT 


< “ 









",28<iH ) , 6HT ine s , A2 , 1H . , A2 , 3H h) 



.127 



c 

c 

c 

c 

c 



c 

c 

c 

c 

c 



1140 C 

m 

1143 

1144 

1145 

1146 

1147 

1148 

1149 

1150 

1151 

1152 

1153 

1154 

1155 

1156 

1157 

1158 

1159 

1160 
1161 
1162 

1163 

1164 

1165 

1166 

1167 

1168 

1169 

1170 

1171 

1172 

1173 

1174 

1175 

1176 

1177 

1178 

1179 
H80 
1181 
1182 

1183 

1184 

1185 

1186 

1187 

1188 

1189 

1190 

1191 

1192 

1193 

1194 

1195 

1196 

1197 

1198 

1199 

1200 
1201 
1202 
1203 



f a r m a *r ss p a c: i-n r ss t o p 



c 

c 

c 

c 

c 




01 



I PAGE 
IOOC 
IDOCF 
IPAGE 
ISECU 
ICR 

ISIZE(i) 

ISIZE (2) 

IFILEC2) 

ITYPE 

IFRST 

ISP 

IL 



CNTRL < 39 ) .EG. 



CNTRL (218) 

* CNTRL ( 219 ) 

= CNTRL ( 219 ) 

= IPAGE+i 

= CNTRL ( 31 ) 

= CNTRL < 30 ) 

= 3 
= 128 

= ICON < CNTRL ( 4 ) , 0 ) 

= 2HT3 

* 0 

= 384 



I/O Assignments; preset data array 



DO 02 

02 IBUFi 
DO 03 

03 IBUFi 
LI 

LO 
LA 
LSI 
LS2 
ISVi 
ISY4 
NRPTi 
* IW 



1=1,384,1 
(I) = 177777B 
1=265*296 , 1 
(I) = 6 

= CNTRL < 19 ) 

= CNTRL <20 ) 

= CNTRL < 21 ) 

= CNTRL<71 ) 

= CNTRL < 72 ) 

= CNTRL ( 61 ) 

= CNTRL < 64 ) 

= CNTRL (230 ) 
» CNTRL ( 250 > 




IF < CNTRL < 37 ) . EQ . 



) GO TO 04 



CALL TIME ( I MON , IDAY > I YEAR , I HOUR , IMIN) 
WRITE (LO, 601) CNTRL<4> 



WRITE (LO, 602) IMON , IDAY , IYEAR 
WRITE (LO, 603) IHOUR,IMIN 
WRITE (LO, 604) IPAGE 

04 IF ( CNTRL ( 38) .EQ. 1 ) WRITE (LO, 605) 



C 

C 
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1204 

1205 

1206 

1207 

1208 

1209 

1210 
1211 
1212 

1213 

1214 

1215 

1216 

1217 

1218 

1219 

1220 
1221 
1222 

1223 

1224 

1225 

1226 
1227 
1229 

1229 

1230 

1231 

1232 

1233 

1234 

1235 

1236 

1237 

1238 

m 

1241 

1242 

1243 

1244 

1245 

1246 

1247 

1248 

1249 

1250 

1251 

1252 

1253 

1254 

1255 

1256 

1257 

1258 

1259 

1260 
1261 
1262 

1263 

1264 

1265 

1266 

1267 

1268 

1269 

1270 

1271 

1272 

1273 

1274 

1275 

1276 

1277 

1278 



C 

c 

c 



c 

c 

c 

c 

c 



c 

c 

c 

c 

c 



c 

c 

c 

c 

c 



c 

c 

c 

c 

c 



05 



06 



07 



08 



Start data acquisition loop, 



DO 19 J 1=1 , NRPTi , 1 
WRITE (LI. 101) NOLF 
ICHNL = CNTRL ( 230+Ji > 

IF ( CNTRL ( 39 ) . EQ . 1 ) GO TO 06 
IDOC = IDGC+i 
IDOCF = IDQCF+i 

IF ( IDOCF . LT . 100 ) GO TO 05 

IFRST - 2HS3 

IDOCF = IDOCF-1 0 0 

IFILE(i) = IFRST 

IFILEC3) = ICON ( IDOCF , 0 ) 




FREQ 

FREQ 

CIM 

CYAW 

PREF 

PI 
P23 
P 4 
E 

DE 



SCANR (LSI ,17,2) 
FREQ*i 0 . 0 
SCANR(LSi ,30, 1) 
SCANR ( LS 1,31,1) 
SCANR (LSI .37,1) 

ACQN ( ISU4 , 3 , I W ) 
AGON ( ISV4 , 4 , I W ) 
ACQN ( ISV4 , 5 IW) 
SCANR (LS2 ,18,1) 
SCANR (LS2,19,1) 



Get correct prob{ positions. 



IF ( ICHNL .EQ. 0 ) GO TO 07 
IF ( ICHNL .EQ. 1 ) GO TO 08 
GO TO 09 



Type 'A' KULITE probe (on A/D input channel 0) 



XIH = SCANR ( LSI ,32,1) 

YAW = SCANRCLSi ,33,1) 

CALL CODE 

WRITE ( IOXIM ,102) XIH, YAW 
I ADD = 0 
I BUF 1(290) = 1 
GO TO 10 



Type > B > KULITE probe (on A/D input channel 1). 



XIH = SCANR (LSI ,34,1) 

YAW = SCANR ( LSI , 35 , 1 ) 

CALL CODE 

WRITE ( IOXIH , 103) XIH, YAW 
IADD = 576 
IBUFK280) = 2 
GO TO 10 
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1279 

1280 
1281 
1282 

1283 

1284 

1285 

1286 

1287 

1288 

1289 

1290 

1291 

1292 

1293 

1294 

1295 

1296 

1297 

1298 

1299 

1300 

1301 

1302 

1303 

1304 

1305 

1306 

1307 

1308 

1309 

1310 

1311 

1312 

1313 

1314 

1315 

1316 

1317 

1318 

1319 

1320 

1321 

1322 

1323 

1324 
1325' 

1326 

1327 

1328 

1329 

1330 

1331 

1332 

1333 

1334 

1335 

1336 

1337 

1338 

1339 

1340 

1341 

1342 

1343 

1344 

1345 

1346 

1347 

1348 

1349 

1350 

1351 

1352 

1353 



C 

C 

C 

C 

C 



C 

c 

c 

c 

c 



c 

c 

c 

c 

c 



09 



c 

c 

c 

c 

c 

c 



10 




CALL CODE 
WRITE < TOXIM , i 04 ) 
IBUF i <280 ) = 9 
Xlh = -99. 

YAW = -99. 



Inform operator about next data scan; wait for ready 
message; continue. 



WRITE (LI, 105) ICHNL 

READ (LI, 149) IDUH 

WRITE < LI , 149) ( ICLR ,1 = 1,10,1) 

IF < IDUM .EG). 2HS$ ) STOP 0401 




IPAHO = CNTRL < 220 ) 

IPAIR = CNTRL ( 221 ) 

IF < IPAHO , EQ . 2 ) ISTART = CNTRL ( 222 )+I ADD 
IF < IPAMQ .EQ. 2 ) ISTOP » CNTRL < 224 ) +1 ADD 
INCR = CNTRL ( 223 ) 

IRPT = CNTRL ( 225 ) 

CALL RP ACE < ICHNL , IPAHO , IPAIR , ISTART , INCR , ISTOP , IRPT , AVRGE ,0,0) 




IBUF1 
IBUF 1 
IBUF1 
IBUF 1 
IBUF 1 
IBUF 1 
IBUF 1 
IBUF 1 



(265) 

(266) 

(267) 

(268) 

(269) 

(270) 

(271) 

(272) 



IBUF 1 ( 273) 
IBUF 1 < 274 ) 
IBUF 1(275) 
IBUF 1 ( 276 ) 
IBUF 1 ( 277 ) 
IBUF1 (278) 
IBUF 1 ( 279 > 

IBUF 1 ( 281 ) 
IBUF 1 ( 282) 
IBUF 1(283) 
IBUF 1 ( 284 ) 

IBUF1 (290) 
IBUF 1 ( 291 ) 
IBUF 1 (292) 

IBUF 1(293) 



IDOC 
ICHNL 
IPAHO 
IPAIR 
ISTART 
INCR 
ISTOP 
IRPT 

CIM * iOOOOQQ, 
CYAW * 100 00 00 



Pi 

P23 

P4 

E 

DE 



1000000 , 
1000000 , 
1000000 . 
1000000 , 
1000000 . 



XIH * 1000000. 
YAW * 1000000, 
PREF * 1000000 . 
RPH 

CNTRL( 4) 

CNTRL ( 5 ) 

CNTRL( 6 ) 

IAURGE(i) 
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1354 

1355 

1356 

1357 

1358 

1359 

1360 

1361 

1362 

1363 

1364 

1365 

1366 

1367 

1368 

1369 

1370 

1371 

1372 

1373 

1374 

1375 

1376 

1377 

1378 

1379 

1380 

1381 

1382 

1383 

1384 

1385 

1386 

1387 

1388 

m 

1391 

1392 

1393 

1394 

1395 

1396 

1397 

1398 

1399 

1400 

1401 

1402 

1403 

1404 

1405 

1406 

1407 

1408 

1409 

1410 

1411 

1412 

1413 

1414 

1415 

1416 

1417 

1418 

1419 

1420 

1421 

1422 

1423 

1424 

1425 

1426 

1427 

1428 



C 

C 

C 

C 

c 

c 

c 



c 

c 

c 

c 

c 

c 

c 



c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



11 

12 



13 



IBUFK294) - IAURGE(2) 

CALL TIME < IBUF 1 < 352 ) , IBUF 1(360) , IBIJF t < 368 ) > IBUF 1(376) , IBUFK384 
) ) 



Display the just acquired wave on terminal CRT, if 
CNTRL(40) is set to 1. The character used for the 
is defined by CNTRL<249) . 



•plot* 



WRITE (LI, 148) ICLR 

WRITE (LI, 149) ICLR 

IF ( CNTRL ( 40 ) . NE . i ) GO TO 11 

WRITE (LI, 106) LA, NOLF 

Jill =1 

J222 = 1 

CALL PICTR ( LA , I DOC ,1111 , J222 , CNTRL ( 249 ) , DUM) 



Select the next step: 

RE Repeat this point 

anything else Proceed to the next point 



WRITE (LI, 107) ICHNL 

READ (LI, 149) IDUM 

WRITE (LI, 149) ( ICLR , 1=1,8. 1 ) 

IF ( IDUM , EQ . 2HS$ ) STOP 0402 
IF < IDUM .EQ. 2HRE ) GD TO 06 

.LT. 5 ) GO TO 12 



IF ( ISP 
ISP = 0 
IF ( CNTRL ( 37 ) 
ISP = ISP+i 



.NE. 1 ) WRITE < LO , 609) 



Save data in file. There are two options. The raw data file 
is either created/ opened and closed by subroutine PACER 
(CNTRL(39) is set to anything but to 1) or this subroutine 
is called fro« subroutine ABSRU, which already has created/ 
opened and positioned the raw data file and will close it 
(CNTRL(39) is set to 1). In both cases the raw data are 
written in file by this subroutine PACER. 



WRITE (LI, 108) TFILE , NOLF 
JSECU = ICON ( ISECU , 0 ) 

JCR = ICON < ICR , 0 ) 

IBUF 1 ( 257 ) = IFILE < 1 ) 

IBUF 1 ( 258 ) =* IFILE < 2) 

IBUF 1 < 259 ) = I F I L E ( 3 ) 

IBUF 1 ( 261 ) = JSECU 
IBUF 1 ( 263 ) = JCR 



IF ( CNTRL ( 39 ) . EQ . 

CALL GREAT ( IDCB , IERR 



IF ( IERR 
WRITE (LI, 
READ (LI, 
WRITE (LI, 
IF ( IDUM 
IF ( IDUM 
WRITE (LT, 
CALL PURGE 
IF ( IERR 
GO TO 13 



GT . 

109) 
149) 
149) 

: nI : 

110 ) 



1 ) GO TO 16 

IFILE , I SIZE , ITYPE , ISECU , ICR , IDCBS ) 
“ TO 15 



0 ) 6o 

IFILE 
IDUM 

(ICLR, 1=1 >3,1) 

2H*S ) STOP 0403 
2HPU ) GO TO 14 
IFILE, JSECU, JCR 
(IDCB, IERR .IFILE .ISECU, ICR) 
.LT. 0 ) £TOP 0404 
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PAGE 0025 PACER 2 : 47 PH HON., 25 AUG., 1980 



1429 

1430 

1431 

1432 

1433 

1434 

1435 

1436 

1437 

1438 

1439 

1440 

1441 

1442 

1443 

1444 

1445 

1446 

1447 

1448 

1449 

1450 

1451 

1452 

1453 

1454 

1455 

1456 

1457 

1458 

1459 

1460 

1461 

1462 

1463 

1464 

1465 

1466 

1467 

1468 

1469 

1470 

1471 

1472 

1473 
1474- 

1475 

1476 

1477 

1478 

1479 

1480 

1481 



14 

15 

16 
17 



CALL CODE 
WRITE (NEW,!!!) 



18 



C 

C 

C 

C 

C 



C 

C 

C 

C 

C 

C 



19 



URITE (LI, 
IFILE(I) = 
GO TO 13 
CALL OPEN 
IF < IERR 
IREC 

GO TO 17 
IF ( ICHNL 
IF ( ICHNL 
IBUFK289) 
CALL WRITF 
IERR 



112 ) 

NEW 



IDUH 

IFILE ,NEW , IFILE<2) ,IFILE<3) 



= 1 



( IDCB , IERR i IFILE .IOPTN, ISECll, ICR , IDCBS) 
,LT, 0 ) £tOP 0^05 



IF ( 

IF < 

CALL 
IF ( 

JSECU 
JCR 
WRITE (LI, 



.EQ. 0 ) IREC * IREC 
.EG). 1 ) IREC = IREC+3 
- IREC 

(IDCB, IERR, IBUFl.IL, IREC) 
U.T. 0 ) STOP 0406 
GO TO 18 



CNTRL (39 ) . EO, 1 ) 

CLOSE (IDCB, IERR, 0) 
.LT. 0 ) STOP 
ICON ( TSECU , 0 ) 
ICQN( ICR ,0 ) 
148) ICLR 



IERR 



0407 




WRITE (LO, 610) ( IBUF 1 ( J2 ) > J2= : 265 > 272 . 1),CIH,CYAW,P1,P23,P4,E,DE 
* , IOXIH,PREFR, FREQ, AURGE, IFILE, JSECU, JCR, IREC 



Terminate subroutine* write accounting data back 
into control array. 

iF* ( ’CNTRL (37) ‘ * ! EQ ! ' ' 1 ' ) ' GO ' TO ' 20 

CALL TIME ( I MON , IDAY > I YEAR , I HOUR , IHIN ) 

WRITE (LP, 611) I HOUR , IMIN 
20 CNTRL( 37) » -4 
CNTRL ( 38) a 1 
CNTRL( 39) = -4 
CNTRL ( 50) * -4 
CNTRL( 218 ) = IPAGE 
CNTRL ( 219 ) = I DOC 
RETURN 



END 



FTN4 COMPILER: HP92060-16092 REV . 1926 (790430) 

** NO WARNINGS ** NO ERRORS ** PROGRAM = 02561 COMMON a 00000 
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5. PROGRAM TXC02 



5.1. DESCRIPTION 

TXC02 is a son program of the father program TXC0J3, by 
which it is scheduled if one of the following operations is 
desired: 

5 - Radial survey using the combination probe 

6 - Scan through all steady state data 

When scheduled by TXC0J3, which suspends operation while the 
son program TXC02 executes, the program TXC02 reads the pro- 
gram control array from the disc, sets the HP interface bus 
and the measurement and control devices to remote control and 
programs the digital voltmeter (DVM) , the scanners and the 
counter. CNTRL(50) is the actual decision variable to select 
and call the subroutine, which performs the desired operation. 
When this subroutine has terminated, the interface bus and 
the devices are released from remote control and the control 
array is written into a disc file, so that the next TXCO module 
can read it. The correct termination of each subroutine can be 
verified by checking the stop codes. Note that each stop code 
ending in 77 indicates correct execution of a subroutine. 



CNTRL ( 50 ) 


Subroutine 


STOP Code 




5 


COMB 


TXC02 : STOP 


0577 


6 


STDY 


TXCO 2 : STOP 


0677 



Any other STOP code indicates a mistake and with the help of 

a program list the operator can trace the problem. The first 

two digits of the STOP code identify the subroutine. An 

example: if the program stops at STOP code 0604, the first 

13 3 



two digits read 6 and tells the operator that it was sub- 
routine STDY which encountered problems. The last two digits 
read 04 (no error would give 77) . A program list reveals 
that the failure occurred after attempting to purge an 
existing data file using FMP (File Management Package) sub- 
routine PURGE near line 752. Maybe the cartridge, where 
the raw data are directed, has not been mounted with the 
MC-command from FMGR. STOP codes are crucial to a complex 
program system in order to rapidly detect and salvage prob- 
lems, even during a test run. 

EXTERNALS ; REWRF , ABERT, RMOTE , COMB, STDY, CLEAR, LOCL 
COMMON BLOCKS : FMP, CI3UF , CONTR 

FORTRAN conventions for the HP 21 MX computer request COMMON 
blocks to be predefined in a BLOCK DATA subroutine prior to 
using a COMMON block in a program, subroutine or function. 



BLOCK DATA Subroutine 


Arrays & Variables 


Length 


in Word 


FMP 


IDCB , IFILE , ISIZE , ISECIA, ICR 


227B 


= 151 10 


CIBUF 


IBUF 


3200B 


= 1664 


CONTR 


CNTRL 


400B 


= 256 



The arrays and variables allocated by the COMMON block FMP 
are frequently used for the data transfer from and to the disc. 
COMMON block CIBUF is designed to take the largest raw data 
array in the TXCO data acquisition and reduction system - 
IBUF(1664) in subroutine FREER. The largest data array in 
TXC02 is PDAT (24, 21) with 1008 = 2*21*24 words. The TXC02 
subroutines only partially use the COMMON area. The COMMON 
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block CONTR allocates the space for the control array CNTRL . 
Since each individual subroutine saves the data prior to 
terminating, the buffer area for the raw data can be shared 
by more than one subroutine or function. 

MNEMONIC ABBREVIATIONS : None 

ERROR MESSAGES : If CNTRL (50) is less than 5 or greater than 

6, no subroutine can be selected and the program terminates 
outputting an error message (FORMAT 102) to the standard 
input device; i.e. the terminal. 

PROCEDURE: For more detailed information study the flow 

chart and the information given in the subroutine descrip- 
tions . 



DATA FILE: None 



VARIABLES IN BLOCK DATA FMP : 

IDCB (144) integer 
IFILE (3) integer 
ISIZE (2) integer 



ISECU integer 

ICR integer 



data control block 
array to contain file name 
array to contain # of records 
in the first and record length 
in the second 16-bit word 
security code of data file 
cartridge reference number, 
where data file is located 
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VARIABLES IN BLOCK DATA CIBUF: 



IBUF (1664) integer buffer array for the raw data 



VARIABLES IN BLOCK DATA CONTR : 

CNTRL (256) integer program control array 



VARIABLES IN PROGRAM TXCQ2 : 
CNTRL (256) integer 
NOLF integer 

LI integer 

ISTOP integer 



program control array 

suppresses line feed 

LU# of standard input device 

(terminal) 

control variable to select 
STOP code 
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5.2. 



SUBROUTINE COMB: 



PURPOSE : Acquisition of flow data from the transonic 1-stage 

axial compressor using a pneumatic 4-hole combination probe. 

The data necessary for the reduction procedure (PROGRAM REDCO: 
Redu ce Combination probe data) are recorded also. Up to 24 
different radial positions can be recorded. Taking more than 
one scan at one and the same radial position should be avoided, 
because the reduction program (originally written by R. Shreeve 
for the Laboratory's HP 9830 calculator and rewritten by 
F. Neuhoff for the more advanced HP 21 MX computer) is not set 
up for this condition. 

ARGUMENTS : None 

EXTERNALS : TIME, SCANR , ACQN , CREAT , PURGE, OPEN, WRITF , CLOSE 

COMMON BLOCKS : CIBUF, CONTR, FMP . For detailed explanation 

refer to the TXC02 description. 

MNEMONIC ABBREVIATIONS : 

RE ... Repeat data acquisition at this radial position. 

NE ... Proceed to the next radial position. 

EN ... End survey at this operating condition. 

UP ... Update position readings of probes prior to data 
taking . 

TA ... Initialisation command to take data. 

TR ... Transfer raw data to HP 9830. 

ST ... Store raw data in 21 MX disc file. 

PU ... Allow purge of an existing data file. 
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ERROR MESSAGES: None 



PROCEDURE: For more detailed information, study the flow 

chart. After having assigned the accounting data, assigned 
the I/O references, COMB asks the operator whether the 
radial survey takes place ahead of the (IPOS = 1) rotor or 
behind the (IPOS = 2) rotor. IPOS later will be used to 
identify the correct data port (see Appendix A.l: Data Lo- 

cations) . The raw data array IBUF - which is set equivalent 
to real array PDAT (Prob Dat a; used instead of IBUF, which 
is an integer array) is first preset with zeroes. Before the 
operator goes ahead and allows the subroutine to gather data 
(Input: TA; see key to raw data array) , he can monitor the 

probe positions by updating its reading (Input: UP) , until 

the probe is manually set to the desired position. Upon 
completion of the data scan the acquired data are printed and 
the next step depends on the operator's decision. If a pre- 
liminary check reveals erroneous data, the scan at this radial 
position should be repeated (Input: RE). If the data are 

correct, the operator either proceeds to the next radial posi- 
tion (Input: NE) or terminates the radial combination probe 

survey (Input: EN) at this operating condition. The sub- 

routine then asks where to dump the data. When this routine 
was developed the data reduction program for the combination 
probe was not available in the 21 MX system, hence the option 
to transfer the data to the 9830 calculator (Input: TR) was 

used. But the data can as well be stored in a 21 MX disc file 
(Input: ST) . If the raw data file with the automatically 
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determined name already exists, the operator either allows 
overwriting the existing file (Input: PU) or renames the 

current data file (Input: any alphabetic character other than 

T) . The subroutine terminates printing the data file name at 
the bottom of the data documentation page. 

DATA FILE : The default file name is T5rrss (rr . . . ASCII 

converted run #; ss ... ASCII converted sequential #) . 

VARIABLES : 



IBUF 


(1664) 


integer 


buffer array 


CNTRL 


(256) 


integer 


control array 


IDCB 


(144) 


integer 


data control block, used for 
FMP calls 


IFILE 


(3) 


integer 


array to contain current file 
name 


ISIZE 


(2) 


integer 


specifies # of records and 
record length 


ISECU 




integer 


security code of data file 


ICR 




integer 


cartridge reference number, 
where the raw data file is 
located 


JSECU 




integer 


ASCII converted security code 


JCR 




integer 


ASCII converted cartridge 
reference number 


PDAT (21,24) 


real 


raw data array, set equivalent 
to IBUF 



142 



POS (7) 


real 


array to contain probe positions 


NOLF 




integer 


suppresses line feed 


NOCR 


(2) 


integer 


suppresses line feed and carriage 
RETURN 


ICLR 


(3) 


integer 


clears line above cursor 


IDCBS 




integer 


length of data control block 


IENTR 




integer 


multiple entry flag 


I DOC 




integer 


count of current program run 


IDOCF 




integer 


count of current data file 
sequential # 


ITYPE 




integer 


type of raw data file 


IL 




integer 


number of words to be transferred 
in FMP calls 


LI 




integer 


LU# of standard input device 
(terminal) 


LO 




integer 


LU# of standard output device 
(line printer) 


IPOS 




integer 


Flag to indicate measurement 
location 


IMON 




integer 


ASCII converted month of current 
year 


IYEAR 




integer 


ASCII converted last two digits 
of current year 


I DAY 




integer 


ASCII converted day of the month 


IHOUR 




integer 


ASCII converted hour of the 
day (24 h clock) 


IMIN 




integer 


ASCII converted minute of the 
hour 
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JI 

IS 

IC 

12 

J3 

IDUM 

IW 

JO 

SUM 

I SYNCH 
NEW 

Key to data . 
PDAT (1,J1) 
PDAT (2 , Jl) 
PDAT (3 , Jl) 
PDAT ( 4 , Jl ) 
PDAT (5, Jl) 
PDAT { 6 , Jl) 
PDAT (7 , Jl) 



integer 

integer 

integer 

integer 

integer 

integer 

integer 



integer 

real 

integer 



integer 



Subscript for data array PDAT 
LU# of the selected scanner 
Instrument code (DVM ... 1 
and digital counter ... 3) 
Subscript for position array POS 
Contains channel of desired 
scanner 

Decision variable 
Determines delay in tens of 
milliseconds between closing 
S/V port and DVM reading 
Number of selected S/V 
Variable used to compute average 
Synchronisation variable to 
coordinate data transfer 
21 MX — >*9830 

Scratch variable used to rename 
files 



y PDAT 

Barometric oressure 
KULITE reference pressure 
Combination probe pressure p-^ 
Combination probe pressure P 23 
Combination probe pressure p^ 

Total pressure ahead of compressor p fc 
Static port in casing #2 ; S 2 
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PDAT 



PDAT 

PDAT 

PDAT 

PDAT 

PDAT 

PDAT 

PDAT 

PDAT 

PDAT 

PDAT 

PDAT 

PDAT 

PDAT 

,T1 = 



(3, Jl) 


Static port in casing #13 7 S l3 






(9 , Jl) 


Average reading of 4 static ports 


in 


Hub 




(#2 thru 5) (H 1 + H 2 + H 3 + H 4 )/4 






(10, Jl) 


Pressure ahead of compressor flow 


meter 


(11, Jl) 


orifice P. . 

1 nozzle compr 

Temperature ahead of compressor f 


low 


meter 


(12, Jl) 


orifice T, . 

1 nozzle compr 

Pressure drop across compressor flow 


meter 


(13, Jl) 


orifice p . 

^nozzle compr 

Temperature reading from reference probe 


(14, Jl) 


T ref 

Differential temperature reading 


from the 



combination probe to the reference probe 
T 

probe 

(15, Jl) Radial immersion of the combination probe 

(16, Jl) Yaw angle of the combination probe 

(17, Jl) Case angle 

(13,J1) Compressor RPM 

(19, Jl) Test run # 

( 20 , Jl) Test # of this run 
(21, Jl) Point # of this test 

1 ... 24 indicates # of radial position. 
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5.3. 



SUBROUTINE STDY : 



PURPOSE : Acquisition of flow data from the transonic 1-stage 

axial compressor using the steady state instrumentation. All 
data, gathered by this subroutine, will be used for the reduc- 
tion (PROGRAM REDST: Redu ce Steady state data; see section 

8.3 of this report). The data array is designed to both 
resemble the data source location matrix (see Appendix A.l) 
and to discriminate groups of similar data by blank lines 
(Appendix A. 2). CH3(1) through CH3(5), which contain all the 

pressures needed to calculate the flow rates, and CH3(6), 
which is left blank, separates this group of data from the 
next one. The reason is to allow the investigator a quick 
check and verification of crucial data. The "units" of the 
readings depend on the amplifier settings, but usually each 
channel is calibrated to allow the operator to read voltages 
as a quantity in engineering units. As far as possible, 
amplifier drift is traced by the program (CH1(1), CH2(1) 
etc.). (The author is indebted to Laboratory's manager, 

Mr. Jim Hammer, who, with admirable patience, instructed 
the author in how best to handle data and data systems.) 

ARGUMENTS ; IRUN; if IRUN is set to 0 (zero), taking pressure 
readings from the Scanivalves (S/V) is skipped. This option 
was needed when the subroutine was first written so that fre- 
quent debugging runs did not put additional loads on the S/V's. 
The standard entry is; IRUN = 1. Only then will the reduction 
program REDST perform correctly. 
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EXTERNALS : TIME, ACQN , SCANR , CREAT, PURGE, OPEN, WRITE, CLOSE 



CO?lMON BLOCKS : CIBUF , CONTR, FMP . For detailed explanation 

refer to the TXC02 description 

MNEMONIC ABBREVIATIONS : 

RP ... Repeat data acquisition at this operating condition 
RT ... End data acquisition and return to calling program 
PU ... Allow purge of an existing data file 

ERROR MESSAGES : None 

PROCEDURE : For more detailed information, study the flow chart. 

After having assigned the accounting data and defined the I/O 
references, STDY presets all elements of the raw data array 
with -0.999999, which definitely never will occur as a data 
reading. Next, unless IRUN equals 0 (zero) , the pressures 
on Scanivalves 1 and 4 are read. The voltages from scanner 
#1 (LU# = 8) and scanner #2 (LU# 15) are read next, not depend- 
ing on the value of IRUN. Note, that the allocation for the 
voltages in the raw data array provides blocks of similar data, 
separated by blank lines. A set of control parameters (CNTRL 
(1) thru CNTRL (6) ; and CNTRL (13) and the case angle - which 
needs to be put in manually - completes the steady state data. 
Then the raw data is printed to allow the operator to look 
at and to verify the newly acquired data. The data scan can 
either be repeated (Input: RP) or the subroutine terminates 

(Input: ST) storing the data in a type 1 disc file. If the 

automatically determined name for the data file already exists. 
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the operator either allows overwriting the existing file 
(Input: PU) or renames the current data file (Input: any 

alphabetic character other than T) . Finally data file name and 
time are printed at the bottom of the data documentation page. 

DATA FILE : The default file name is T4rrss (rr . . . ASCII 

converted run #; ss ... ASCII converted sequential #) ; see 
Appendix A. 2: Steady State Data Array. CH4 (1) through 

CH4 (26) are not used, because the reduction program will 
write its results into these slots. 

VARIABLES : 



IBUF 


(1664) 


integer 


buffer array 


CNTRL 


(256) 


integer 


control array 


IDCB 


(144) 


integer 


data control block, used for 
FMP calls 


IFILE 


(3) 


integer 


array to contain current file 
name 


ISIZE 


(2) 


integer 


specifies # of records and 
record length 


ISECU 




integer 


security code of data file 


ICR 




integer 


cartridge reference number, where 
the raw data file is located 


JSECU 




integer 


ASCII converted security code 


JCR 




integer 


ASCII converted cartridge refer- 
ence number 


DATA 


(48,4) 


real 


raw data array, set equivalent 
to IBUF 
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NOLF 




integer 


suppresses line feed 


NOCR 


(2) 


integer 


suppresses line feed and carriage 
RETURN 


ICLR 


(3) 


integer 


clears line above cursor 


IENTR 




integer 


multiple entry flag 


IDOC 




integer 


count of current program run 


IDOCF 




integer 


count of current data file se- 
quential # 


ITYPE 




integer 


type of raw data file 


IL 




integer 


number of words to be transferred 
in FMP calls 


IFRST 




integer 


temporary buffer variable 


LI 




integer 


LU # of standard input device 
(terminal) 


LO 




integer 


LU # of standard output device 
(line printer) 


J1 




integer 


subscript for data array DATA, 
specifies channel 


J2 




integer 


subscript for data array DATA 


I RUN 




integer 


control variable 


JO 




integer 


number of selected S/V 


IW 




integer 


determines delay in tens of 
milliseconds between closing 
S/V port and DVM reading 


TARE1 




real 


drift of amplifier S/V#l during 
test run 
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TARE 2 


real 


drift of amplifier S/V #4 
during test run 


IS 


integer 


LU # of the selected scanner 


IC 


integer 


instrument code (DVM ... 1 
and digital counter ... 2) 


J3 


integer 


contains channel of scanner 


NO (2) 


integer 


ASCII text to be printed, if 
value of DATA (J2,J1) = 
-.999899 


IDUI1 


integer 


decision variable 


IMON 


integer 


ASCII converted month of current 
year 


I DAY 


integer 


ASCII converted day of the month 


IYEAR 


integer 


ASCII converted last two digits 
of current year 


IHOUR 


integer 


ASCII converted hour of the day 
(24 h clock) 


IMIN 


integer 


ASCII converted minute of the 
hour 


NEW 


integer 


scratch variable used to 
rename files 
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T 
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16-3 







16 4 . 
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5.4 



PROGRAM LISTING TXC02 



PAGE OOOi FTN . • 4;12 PM TUE . , 23 SEP,, 1980 

0001 FTN4 , L 

0002 BLOCK DATA 

0003 *, / FMP / IDCBC144) , IFILE(3) , IS IZE ( 2 ) , I SECU , ICR 

0004 COMMON / FMP / IDCB , IF ILE , I S IZE , ISECU , ICR 

0005 INTEGER IDCB< 144) , IFILE(3) , ISIZEC2) 

0006 END 

FTN4 COMPILER: HP92060-16092 REV. 1926 (790430) 

** NO WARNINGS ** NO ERRORS ** 

BLOCK COMMON FMP SIZE = 001S1 
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PAGE 0002 FTN . 



4:12 PM TUE., 23 SEP., 1980 



0007 

0008 

0009 

0010 
0011 


BLDCK DATA 

/ CIBUF / IFUF ( 1664 ) 
COMMON / CIBUF / IBUF 
INTEGER I BUF < 1664 ) 

END 


FTN4 


COMPILER: HP92060-16092 REU . 1926 (790430) 



** NO WARNINGS #* NO ERRORS ** 
BLOCK COMMON CIBUF SIZE = 01664 



PAGE 0003 FTN , 4:12 PM TUE . , 23 SEP., 1980 



0012 

0013 


blGck data 

t> / CONTR / CNTRL ( 256 ) 


0014 

0015 

0016 


COMMON / CONTR / CNTRL 
INTEGER CNTRL ( 256 ) 

END 


FTN4 


COMPILER: HP9206Q-16092 REV, 1926 (790430) 



** NO WARNINGS ** NO ERRORS ** 
BLOCK COMMON CONTR SIZE = 002S6 
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PAGE 0004 FTN . 



4:12 PM TUE. , 23 SEP . , 1980 



0017 

0018 

0019 

0020 
0021 
0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 



0040 



> 0 ' 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 
0060. 
0061 
0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 
0081 
0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 



C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



PROGRAM TXC02 (3,99) 



The operating system RTE I V B requests the data acquisition 
program TXCO for the one stage transsonic compressor to be 



split into several proqrams scheduled by the father program 
TXCQ. This son program 1 XCQ2 consists of the subroutines 
COMB and STDY, These codes handle the acquisition of the 
steady state data and a survey cunducted with the combination 
probe. The data transfer between father and son program 
takes place via the control array CNTRL (disc file CNTRLF) 
and the data array IBUF (disc file IBUFF) 

The u 
PICTR , 

Author : 

Date 



the data array IBUF (disc file IBUFF). 

utility subroutines ACQN> CNTL , CURVE, ICON, IP 
R, REWRF, RPACE, SCANR, TIME and WAIT are added 

i or : Hans M . Zebner 

; March 12 . 198Q 



IPORT , 

^ A 9 



A detailed program description is available in the TXCO log 



*> Second son program of father program TXCO, 



COMMON / CONTR / CNTRL 
INTEGER CNTRL ( 256 ) 

DATA NOLF /006537/ 



101 FORMAT (9X" M 20X H "A2) 

102 FORMAT ( M TXC02 : PROGRAM ABORTED! 
*EN INITIALIZED.’*) 

801 FORMAT ( ,, CA M ) 

1001 FORMAT ( ‘*F1R7M3A1H0T3 M ) 

1201 FORMAT ( ,, PF4G6T ,, ) 

1501 FORMAT ( ”CA H ) 



NO SUBROUTINE HAS BE 



CALL REWRF (-1 
LI = CNTRL (19) 
IF ( CNTRL ( 50 ) 



2 ) 

. LT . 



5 



.OR . 



CNTRL ( 50 ) .GT. 6 ) GO TO 03 



C 

C 

C 

C 

C 



C 

C 

C 

c 

c 



c 

c 

c 

c 

c 




CALL ABRT (7,2) 
CALL RMGTE ( 3) 
CALL RMOTE ( 10) 
CALL RMOTE (12) 
CALL RMOTE ( 15) 
WRITE ( 8, 801) 
WRITE (10,1001) 
WRITE (12,1201) 
WRITE (15 1501) 



Call subroutine indicated by CNTRL(50). 



ISTOP = CNTRL ( 50 ) 

IF ( CNTRL ( 50 ) . EQ . 5 ) CALL COMB 

IF ( CNTRL ( 50 ) . EQ . 6 ) CALL STDY ( CNTRL ( 51 ) ) 



. Release interface bus and devices from remote control. 

CALl‘cLEAR’ (7)i) 

CALL LOCL (7) 

CALL REWRF (1,2) 
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0092 WRITE (LI, 101) NOLF 

0093 GO TO (01,02) ISTOP 

0094 01 STOP 0577 

0095 02 STOP 0677 

0096 03 WRITE (LI, 102) 

0097 END 



FTN4 COMPILER: HP920 60-16092 REV . 1926 (790430) 

** NO WARNINGS ** NO ERRORS ** PROGRAM - 00221 



COMMON = 00000 
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0 098 

0099 

0100 
0101 
0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 
0111 
0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 
0121 
0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 
9136 

0137 

0138 

0139 

0140 

0141 



1151 

1152 
Q153 
9154 

! 1 55 
156 
157 
158 
0159 
0160 
9161 
0162 

m 

4£6S 
3 £66 
9167 
<1168 
ft£69 
0£70 



IP 1 



c 

c 

c 

c 

c 

c 

c 

c 



SUBROUTINE COHB 



Acquires data from the transsonic 1-stage axial compressor 
Gathers data required for a probe survey with the 
combination probe. The raw data then are transferred to 
the HP 9830 calculator for reduction. 



100 

101 



Takes data from the combination probe. 

COMMON / CIBUF / IBUF 
COMMON / CONTR / CNTRL 

COMMON / FMP / IDCB , IFILE , ISIZE > ISECU , ICR 
REAL PDAT<21,24) ,P0S(7) 

INTEGER CNTRL ( 256 ), IDCB( 144) , IFILE(3> , ISIZE ( 2) 

INTEGER IBUF ( 1664) 

INTEGER NOLF 2 NOCR ( 2 ) , ICLR ( 3 ) 

EQUIVALENCE ( IBUF < 1 > , PDAT< 1 , 1 > > 

DATA NOLF /006537B/ 

DATA NOCR /000033B , 040433B/ 

DATA ICLR /015524B, 015515B, 006537B/ 

DATA IDCBS /144/ 

l :: a R M V <3 (3 CD M I* $3 *r A R r 

FORMAT ( A 1 " S " ) 

("WARNING: file ”3A2“ already exists! Type PU to 
purge or enter any char-" , 

acter but T to change file name."38X) 

("File name change succesful! "3A2" changed to 
( ” M 29X”gatherinq probe data ! H 29X " " A2 ) 

( ""26X"storing data in file "3A2 , 26X” ”A2> 

(A2) 



FORMAT 
*"allow 

%/ " 

102 f6rmat 

103 FORMAT 
105 FORMAT 
107 FORMAT 

210 FORMAT 
*pe YES 

211 FORMAT 

212 FORMAT 
*ed data? 

213 FORMAT < " 

* "2A2 ) 

215 FORMAT < " 



"3A2 ) 



( " 
t o 
( " 
( " 



Make sure, that the 9830 receiver program runs! Ty 
cont inue : "2A2) 

"27X"Tr ansf err ing data to 9830 ”27X” ”2A2 ) 

"79X/2A2" Data transfer completed. Print 
Enter LU* or NO! "2A2) 

data- transfer? Enter YES or NO! 



transf err 



Repeat 

Waitinq for 9830 storage procedure 
uje! *2A2) 



of master and 



Type 

slave 



C 

progran ! 



*R to contint 

216 FORMAT < " Check synchronisation 
% Type CR to continue! ”2A2) 

116 FOkMAT ( " "16X"Probe survey at this constellation c omp le ted '*17 
*X “ " A2/ / 

transfer the data to HP 9830 calculator"/ 
save the Data in HP 21MX disc file "3A2” :”A2 



142 . 


*”Type 


TR 


t 0 


143 


X" 


ST 


t 0 


144 


*" : ”A2/ 






145 


* u 




"2A2 ) 


146 


117 FORMAT 


( " 


” 25X 


147 


" * ” T y p e 


RE 


to i 


148 


X" 


NE 


to | 


£49 


*" 


EN 


t 0 


150 


X" 




”2A2 ) 



"Check raw data of this scan ! "26X" "A2// 
repeat this point"/ 
proceed to the next point”/ 

terminate the survey at this constellation”/ 



118 FORMAT < 21X" Immersi on " 1 IX” Yaw Anale”/ 

'* *24X " inches" 19X" "7 

Combination probe 



"F10 .3,10X^10.3” V 



%" 

% " 

*"Type 

*" 

^ ii 

119 FORMAT’ 

120 FORMAT 
*"i) or 

121 FORMAT 
*exec ted 

122 FORMAT 



" F10 .3 > 10X,F10 ,3 U "/ 

"F10 ,3,10XyF10 .3"*// 

" 20X U "F10 .3" "// 
those readings"/ 

data set at this constellation”/ 



*c u t ed > 
147 FORMAT 



72 



148 FORMAT 

149 FORMAT 
189 FORMAT 
601 FORMAT 



Type > A / probe 
Type > B > probe 
Case angle 
UP to update 
TA to take a 
"2A2 ) 

( " Enter case ang le "34X , 2A2) 

(" Is this combination probe survey done 
after (2) the rotor? ”2A2) 

<” PDAT( ,, I2" , "12”) = ACQN( "12” ”12”. ”13”) 

5 result is “FI 0 . 6 ” H A2 ) 

(" PDAT( ”12” » ”12”) = SCANR( ”I2” > ”I2” "II”) 
result is "r 10 . 6 M " A2 ) 

(ID 
( 12) 

( ( 3A2 ) ) 

( (21F6.4) ) 



before <”, 

has been e 
has been exe 



. _ (1H ,””/////, 36X 

X y o i ^ a ;y A. o n R.cjl c;i y .> t < .5?j 
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0173 */////> 

0174 602 FORMAT ( 1H ,4S(1H ) , 33HTranss on i c Connressor Test Run * >17) 

Q17S 603 FORMAT ( 1H ,S8<1H ),6HDate: , A2 , 1H/ . A2 , 1H/ > A2 ) 

0176 604 FORMAT (1H ,'***, S8 ( 1 H ),6HTine: , A2 , 1H . , A2 , 3H h, /////) 

0177 605 FORMAT (1H0 , -Constellation *“ 13* M //1H , 9F i 0 . 6/ 

0178 *1H , 6 0 X , 3F t 0 . &T\W'~7WrTZFUr:?r/TR , 20X . 2F 10 . 6 , Fi 0 . i , 4 1 1 0/ ) 

0179 606 FORMAT (lH0/‘Data transferred to HP 9830 file ,, 10X^.“) 

0180 607 FORMAT <iH0,"Data saved in file "3A2 14 : " A2 “ : A2^ r 7 _Tr r“ 

0181 610 FORMAT < " 



",S8(1H ) , 6HT icie ! , A2 , iH . , A2 , 3H h) 
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0182 

0183 

0184 

0185 

0186 

0187 

0188 

0189 

0190 

0191 

0192 

0193 

0194 

0195 

0196 

0197 

0198 

0199 

0200 
0201 
0202 

0203 

0204 

0205 

0206 

0207 

0208 

0209 

0210 
0211 
0212 

0213 

0214 

0215 

0216 

0217 

0218 

0219 

0220 
0221 
0222 

0223 

0224 

0225 

0226 

0227 

0228 

0229 

0230 

0231 

0232 

0233 

0234 

0235 

0236 

0237 

0238 

0239 

0240 

0241 

0242 

0243 

0244 

0245 

0246 

0247 



701 

702 
900 

1001 

1201 



FORMAT (113) 

FORMAT (F13.6) 

FORMAT (“ A REGISTER IS "K6‘* 
FORMAT ( M FIR7M3A1H0T3‘ , > 

FORMAT < " PF 4G6T " ) 

F* O R MA T <:> O O M B <:> *7 O P 
IF ( IENTR .NE. 0 ) GO TO 7211 



B REGISTER IS "K6/) 



IENTR 
IDOC 
IDOCF 
ISECU 
ICR 
ITYPE 
IL 



1 

0 

0 



7211 

7213 



7212 



CNTRL ( 31 ) 

CNTRL ( 30 ) 

1024 
ISIZE(i) = 8 
ISIZE (2) = 128 
LI = CNTRL< 19 ) 

IDOC = IDQC+l 
WRITE (LI, 120) NOCR 
READ (LI, *) IPOS 
WRITE (LI, 149) ICLR 

IF ( IPOS .LT. 1 .OR. IPOS .GT. 

IDOCF = IDOCF+i 

DO 7212 1=1,1024,1 

IBLJF ( I ) = 0 

WRITE (10,1001) 

WRITE (12,1201) 

LO = CNTRL ( 20 ) 

CALL TIME (IMON,IDAY 2 IYEAR,IHOUR,IMIN) 
WRITE ( LO , 602 ) CNTRL ( 4 ) 

WRITE ( LO , 603 ) IMON > IDAY, I YEAR 
I HOUR , IMIN 



2 ) GO TO 7213 



WRITE 

WRITE 



20 

25 



Ji 

Ji 

IS 

IC 

12 

IF 

IF 



( LO ,604) 
( LO ,601) 



, E 






2 ) 
1 ) 



J3 = 
J3 = 



.EQ. 2 ) J3 = 
.EQ. i ) J3 = 
SCANR ( IS , J3 , IC) 



21 

22 

23 

-24 

4711 



0 

Ji + i 

C7 1) 

1 

IPOS . 

IP DS 

POS ( 12 ) = SCANR ( IS , J3 , IC ) 
12 = 12+1 
IF ( IPOS 
IF ( IPOS 
POS ( 12 ) = 

12 = 12+1 
DO 21 J3=32,3S,i 
POS ( 12 ) = SCANR ( IS, J3 , IC ) 
12 = 12+1 
DO 22 12=1.5,2 
POS ( 12 ) = POS ( 12 ) *1000 . 

DO 23 12=2.6,2 
POS ( 12 ) = rOS( I2)*i000Q . 
WRITE (LI, 119) NOCR 
*) 

149) 

118) 

149) 

149) 

• EQ. 

.EQ. 



30 

38 



31 

39 



(LI, 

<LI 

(LI, 

(LI 

(LI, 



C 

C 



READ 
WRITE 
WRITE 
READ 
WRITE 
IF ( IDUM 
IF ( IDUM 
GO TO 24 
IW = CNTRL ( 250 ) 
WRITE (LI, 103) 



POS ( 7 ) 

ICLR 

( POS ( 12 ) ,12=1,7) , NOCR 
IDUM 

(ICLR, 1=1 .11) 

2HTA ) GO TO 4711 
2HUP ) GO TO 25- 



NOLF 
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0248 

0249 

0250 

0251 

0252 

0253 

0254 

0255 

0256 

0257 

0258 

0259 

0260 
0261 
0262 

0263 

0264 

0265 

0266 

0267 

0268 

0269 

0270 

0271 

0272 

0273 

0274 

0275 

0276 

0277 

0278 

0279 

0280 
0281 
0282 

0283 

0284 

0285 

0286 

0287 

0288 

0289 

0290 

0291 

0292 

0293 

0294 

0295 

0296 

0297 

0298 

0299 

0300 

0301 

0302 

0303 

0304 

0305 

0306 

0307 

0308 

0309 

0310 

0311 

0312 

0313 

0314 

0315 

0316 

0317 

0318 

0319 

0320 

0321 

0322 



C 

C 

C 



Gather data recorded via S/V*i <J0=i). 



C 

C 

C 

C 

C 



C 

C 

C 

C 

C 



JO = 1 

J3 = 7 
J2 = 6 

PDAT ( J2 , Ji ) = ACQN( JO , J3 , IW) 

J3 I - E 9 <LI; t2i) J2 > Ji > JQ,J3,IW,PDAT< J2, Ji ) ,NGLF 
J2 = 7 

P DAT ( J2 , J 1 ) = ACQN( JO ,J3,IW) 

WRITE (LI, 121) J2,J1,J0,J3, IU,PDAT ( J2, Ji ) ,NQLF 

J o ~ t_ U 

J2 — 8 

PDAT < J2 , J 1 ) = ACQN( JO ,J3,IU) 

WRITE (LI, 121) J2, Ji , JO, J3, IU,PDAT( J2,J1) ,NOLF 
bun = 0 , 

DO 1 J3=30 , 33 
J2 = 9 

PDAT (J2.J1) = ACON( JO ,J3,IU) 

PDAT ( J2 , J 1 ) = SUM/4. 




.EQ. 2 ) J3 = 3 
.EQ, 1 ) J3 = 7 



JO = 4 

IF ( IPGS 

IF ( IPOS 

J2 = 3 

PDAT ( J2 , J 1 ) = ACQN( JO, J3,IW) 

WRITE^LI, i|£) J2,Ji^0 4 J3,IU,PDAT(J2,Ji),NQLF 

IF ( IPOS ’.EQ.* 1 ) J3 = 8 

J2 = 4 

PDAT ( J2 > J 1 ) = ACQN( JO, J3,IW) 

WRITE (LI, 121) J2, Ji,JQ,J3,IW,PDAT( J2,Ji) ,NOLF 
IF ( IPOS .EQ, 2 ) ^3=5 

IF ( IPOS .EQ. 1 ) J3 = 9 

J2 = 5 

PDAT ( J2 , J 1 ) = ACQN (JO, J3 , 1) 

WRITE (LI, 121) J2,J1,J0,J3,IW,PDAT(J2,J1) , NOLF 




IS = 

IC = 

J3 = 17 
J 2 = 18 
PDAT ( J2 » Ji ) 
WRITE (Ll, 
IC « 1 
J 3 = 25 
J2 = 1 
PDAT( J2, Ji) 
WRITE (LI, 
J3 = 26 
J2 = 10 
PDAT(J2, Ji) 
WRITE (LI, 
J3 = 27 
J 2 = 12 
P DAT ( J2 , J 1 ) 
WRITE (LI, 
IF ( IPOS 
IF ( IPOS 
J2 * 15 
PDAT ( J2 , Ji ) 
WRITE (LI, 
IF ( IPOS 
IF ( IPOS 



= SCANRdS. J3,IC) 

122) J2, Ji , IS, J3, IC,PDAT( J2, Ji ) , NOLF 



= SCANRdS, J3,IC) 

122) J2, Ji ,IS,J3,IC,PDAT( J2, Ji) , NOLF 
= SCANR ( IS , J3 ,IC ) 

122) J2,Ji,IS,J3,IC,PDAT(J2,Ji) , NOLF 
= SCANR ( IS, J3,IC) 

122) J2,Ji}IS,J3>IC,PDAT (J2,Ji) , NOLF 
.EQ. 2 ) i3 = 3& 

.EQ. 1 ) J3 = 38 

= SCANR (IS,J3,IC) 

122) J2, Ji > IS, J3 2 IC,PDAT( J2, Ji) , NOLF 
.EQ. 2 ) ^3 = 3i 

.EQ. 1 ) J3 = 39 



17.7 
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0323 

0324 

0325 

0326 

0327 

0328 

0329 

0330 

0331 

0332 

0333 

0334 

0335 

0336 

0337 

0338 

0339 

0340 

0341 

0342 

0343 

0344 

0345 

0346 

0347 

0348 

0349 

0350 

0351 

0352 

0353 

0354 

0355 

0356 

0357 

0358 

0359 

0360 

0361 

0362 

0363 

0364 

0365 

0366 

0367 

0368 

0369 

0370 

0371 

0372 

0373 

0374 

0375 

0376 

0377 

0378 

0379 

0380 

0381 

0382 

0383 



C 

C 

c 

c 

c 



c 

c 

c 

c 

c 



50 



51 



C 

C 

c 

c 



J2. = 16 

P DAT ( J2 , Ji ) = SCANR < IS > J3 > IC) 

WRITE (LI, 122) J2,Ji,IS,J3,IC,PDAT(J2,Ji) , NOLF 
J3 = 37 
J2 = 2 

PDAT(J2,Ji) = SCANR ( IS » J3 » IC) 

WRITE (LI, 122) J2, Ji , IS , J3 , IC , P DAT ( J2,Ji) ,NOLF 




IS = 15 
J2 = 11 
SUM = 0 . 

DO 2 J3=4 , 5 

PDAT ( J2, J i ) = SCANR(IS 2 J3,IC) 

WRITE (LI, 122) J2,J1,IS,J3,IC,PDAT(J2,J1) ,NOLF 
SUM = SUM+P DAT ( J2 , J 1 ) 

PDAT ( J2 , J 1 ) = SUM/2. 

J3 = 18 
J2 = 13 

PDAT ( J2 , J 1 ) = SCANR(IS, J3,IC) 

WRITE (LI, 122) J2, Ji , IS , J3 , IC ,PDAT( J2, Ji) ,NOLF 
J3 = 19 ' 

J2 = 14 

PDAT ( J2 v J 1 ) = SCANR (IS,J3>IC) 

WRITE (LI, 122) J2,Ji,IS,j3,IC,PDAr(J2,Jl) , NOLF 




= CNTRL( 4) 

PDAT (20 ^ J 1 ) = CNTRL( 5 ) 

PDA T ( 21 , Ji ) = CNTRL ( 6 ) 

PDAT ( 17 , J 1 ) = POS ( 7 ) 

WRITE (LO, 605) Ji > (PDAT(I,Ji) ,1=1,21) 

no£.f,nocr 1 1 

IDUM 

( ICLR , 1 = 1 , 6 ) 

2HRE ) GO TO 
2HNE ) GO TO 
2 HEN ) GO TO 



117) 

149) 

149) 



13 : 



, EG 

,EQ. 



4711 

2a 

51 



WRITE (LI 
READ (LI, 

WRITE (LI, 

IF ( IDUM 
IF ( IDUM 
IF ( IDUM 
GO TO 50 
IFILE(i) = 2HT5 
IFILE ( 2 ) = ICON ( CNTRL ( 4 ) , 0 ) 

IFILE( 3 ) = ICON ( I DOCF , 0 ) 

JSECU = ICON ( ISECU, 0 ) 

JCR = ICON ( ICR , 0 ) 

WRITE (LI, 116) NOLF, IFILE, JSECU, JCR ,NOCR 

READ (LI, 149) IDUM 

WRITE (LI, 149) (ICLR, 1=1,5) 

IF ( IDUM .EQ. 2HTR ) GO TO 52 
IF ( IDUM .EQ. 2HST ) GO TO 53 
GO TO 51 
ISYNCH = 9830 




0385 


71 


WRITE 


(LI, 


210) 


NOCR 


0386 




READ 


(LI , 


149) 


IDUM 


0387 




WRITE 


(LI, 


149) 


ICLR 


0388 




IF ( : 


IDUH 


.NE . 


2HYE 


0389 




WRITE 


< 7, 


701) 


ISYNCH 


0390 




WRITE 


(LI, 


216) 


NOCR 


0391 




READ 


(LI, 


*) 


IDUM 


0392 




WRITE 


(LI, 


149) 


ICLR 


0393 




WRITE 


(LI 


211 ) 


NOLF 


0394 




DO 72 


I=i, 


21 




0395 




DO 72 


J=l, 


24 




0396 


72 


WRITE 


< ? 


702) 


PDAT ( I 


0397 




WRITE 


(LO 


189) 


( (PDAT 



) GO TO 71 



J) 
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0398 

0399 

0400 

0401 

0402 

0403 

0404 

0405 

0406 

0407 

0408 

0409 

0410 

0411 

0412 

0413 

0414 

0415 

0416 

0417 

0418 

0419 

0420 

0421 

0422 

0423 

0424 

0425 

0426 

0427 

0428 

0429 

0430 

0431 

0432 

0433 

0434 

0435 

0436 



C 

C 

C 

C 

C 



WRITE 

WRITE 

READ 

WRITE 

WRITE 

GO TO 



(LI, 

(LI 

(LI, 

(LI, 

(LO, 

66 



149) 
215) 
ic ) 
149) 
606) 



ICLR 

NGCR 

IDIJM 

ICLR 



Save data on 21MX disc. No transfer to HP 9830 



53 

418 



419 



420 



CONTINUE 
WRITE (LI, 
CALL CREAT 
IF ( IERR 
WRITE (LI, 
READ (LI, 
WRITE (LI, 
IF ( IDUh 
CALL PURGE 
IF ( IERR 
GO TO 418 
CALL CODE 
WRITE (NEW 
WRITE (LI 
IFILE(i) = 
GO TO 418 
CALL OPEN 
IERR 
WRITE 
IERR 
CLOSE 
IERR 
(LI 



IF ( 
CALL 
IF ( 
CALL 
IF ( 
WRITE 



66 



WRITE ( LO ‘ 
CALL TIME 
WRITE (LO 
RETURN 
END 



105) ( IFILE( J2) , J2=l .3) ,NOLF 
( IDCB ,IERR J .IFILE 1 ISiZE,ITYP£, ISECU , ICR , IDCBS ) 
.GT, 0 ) do TO 420 

101) ( IFILE( J2) , J2=i,3) 

107) IDIJM 

149) ICLR 

.ME. 2HPU ) GO TO 419 
( IDCB, IERR . IF I LE, ISECU , ICR ) 

.lt. o ) Stop is 

,100) IDUM 

102) ( IF ILE ( J2 ) , J2=i ,3) ,NEU, ( IFILE (J2> , J2=2,3) 
NEW 

( IDCB , IERR , IFILE , IOPTN , ISECU , ICR , IDCBS) 

. l r . o > Stop li 

(IDCB, IERR .PDAT.IL) 

.LT. 0 ) $TOP i7 
( IDCB, IERR .0) 

.lt. o ) Stop 20 

149) ICLR 

607) IFILE. JSECU.JCR 
( I MON, I DAY , I YEAR , I HOUR , IMIN) 

610 > IHOUR,IMIN 



FTN4 COMPILER: HP92060-16092 REV . 1926 (790430) 

«* NO WARNINGS ** NO ERRORS ** PROGRAM = 03462 COMMON = 00000 
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0437 

0438 

0439 

0440 

0441 

0442 

0443 

0444 

0445 



0446 

0447 

0448 

0449 

0450 

0451 

0452 

0453 

0454 

0455 

0456 

0457 

0458 

0459 

0460 

0461 

0462 

0463 
0 464 

0465 

0466 

0467 

0468 

0469 

0470 

0471 

0472 

0473 

0474 

0475 

0476 

0477 

0478 

0479 

0480 

0481 

0482 

0483 

0484 

0485 

0486 

0487 

0488 

0489 

0490 

0491 

0492 

0493 

0494 

0495 

0496 

0497 

0498 



C 

C 

C 

C 

C 

C 

C 



SUBROUTINE STDY (IRUN) 



Acquires data from the transsonic i-staqe axial compressor 
This subroutine takes care of the steady state.dat" - : - 
in a long or a short run (IRUN=i resp. 0). 



a, either 



Takes data from steady state system. 



100 

101 



COMMON / CIBUF / IBUF 
COMMON / CONTR / CNTRL 

COMMON / FMP / IDCB , IFILE,ISIZE. ISECU , ICR 

INTEGER IBUF (1664) , ITIME(5> !lDATA ( 8 , 4 ) , NQ< 2 ) , NOLF , NOCR ( 2 ) , ICLR ( 3 ) 
INTEGER IDCB(i44),iFILE<3) > iSIZE<2) > 

INTEGER CNTRL ( 256 ) 

REAL DATA < 48,4) 

EQUIVALENCE ( IBUF ( 1 ) , DATA< 1 , 1 ) ) 

DATA NOLF /006537B/ 

DATA NOCR /0 00033B , 040433B/ 

DATA ICLR /0 15524B ! 0 15515B , 0 0 6537B/ 

O R M r <3 $:> T I> Y <:> T ^ R V 

FORMAT (AIM* 1 ) 

("WARNING: File "3A2" already exists! Type ", 
allow purge or enter any char-" , 

act er but T to change file name."38X) 

(" STDY : File name "3A2" succesfully changed to "3A2) 

(" STDY s PU, "3A2" : "A2" : "A2) 

( 12 ) 



FORMAT 
*"PU to 
%/ " 

102 FORMAT 

103 FORMAT 

104 FORMAT 

105 FORMAT 

106 FORMAT 
110 FORMAT 

*"RP . . 
*"RT . . 
% " " A2 ) 

112 FORMAT 
*"0 

115 FORMAT ' 
120 FORMAT 



( 

( 

(/ 



'26X H stor ing data in file "3A2 x 26X" " A2) 
Enter case angle : "Ri"J"2A2) 

'Look at the just acquired data! Decide 
to repeat the data acquisition"/ 
to return to the calling program"// 



and enter"// 



(/' 



Do you want"// 
a short run"/ 
a long run"//" ' 
(4F16.6) 

(" DATA( "12 " 



A2) 



has been execu 
has been exec 



"Ii") = ACQN( "II" , "12" , "13") 

*ted j result is "Fl6.6 M,, A2) 

121 FORMAT (" DATA ( " 12 " , " 1 1 '* ) = SCANR ( " 12" , " 12" , "1 1 " ) 

*etedj result is "FI0.6""A2) 

147 FORMAT (Ii) 

149 FORMAT ( (3A2) ) 

601 FORMAT (1H "",/////, 36X 

% , " SjL ci , ry_ ;V.cjl ./V.A.o.H. 



602 

603 

604 

605 

606 

607 

608 

609 

610 



FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
*ed in 



( 1H 
( 1H 
( 1H 
( 1H 



Compre 

► A2 , 1 H/ ; A2 , 1H/ , A2 ) 



,17) 



, 45 ( 1H ) ,33HTranssonic 
, 58 ( 1H ) , 6HDa te : , A 2 , 1 r i /■ 

, " " , 58 ( 1H ) , 6HT ime : , A2 , 1H . , A2 , 3H 

v x n , 46 ( 1H ) , " "4 115" ") 

UH Siif^^ r ^ 7 " 51 ' ''- 17 

(1H 36(1H ) , 12 , 8 ( 1H ) , 4 ( Ai , 7A2 ) , 17 ) 

(1H , 46 ( 1H ) ,4115, // ) 

( 1H ,36X, "Long run performed. Above printed data are sav 
file “3 A2 " A2 " *.12,/ 



SSor.Test Run ♦ 

h ,///// ) 

) 



*1H y 36X , "No te : "2A2" .. 

611 FORMAT (lR"T^X, "Short . u ., 
*ued in file "3A2” : "A2 M : "12 , / 



no data acquired.") 

run performed. Above printed data are sa 



*1H v 36X . "Note 
612 FORMAT ( " 



"2AS 



no data acquired.") 



" ,58( 1H ) , 6HT ime : , A2, 1H . , A2,3H h, /////) 
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0499 


900 


FORMAT 


( “ A REGISTER IS m K6“ 


OSOO 


1001 


FORMAT 


( n FiR7M3AiH0T3"> 


0501 


1201 


FORMAT 


( "PF4G6T ” ) 


0502 


C 


l :; “ O R M P* r 5^5 5*5 T* Y $:> T* O P 


0503 




IF ( IENTR . NE . 0 ) GO TO 1 


0504 




IENTR 


= 1 


0505 




I DOC 


= 0 


0506 




IDOCF 


= 0 


0507 




ISECU 


= CNTRLC31) 


0508 




ICR 


= CNTRL ( 30 ) 


0509 




ITYPE 


= t 


0510 




IL 


= 384 


0511 




IDCBS 


= 144 



B REGISTER IS 



K 6/ ) 
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0512 

0513 

0514 

0515 
051b 

0517 

0518 

0519 

0520 

0521 

0522 

0523 

0524 

0525 

0526 

0527 

0528 

0529 

0530 

0531 

0532 

0533 

0534 

0535 

0536 

0537 

0538 

0539 

0540 

0541 

0542 

0543 

0544 

0545 

0546 

0547 

0548 

0549 

0550 

0551 

0552 

0553 

0554 

0555 

0556 

0557 

0558 

0559 

0560 

0561 

0562 

0563 

0564 

0565 

0566 

0567 

0568 

0569 

0570 

0571 

0572 

0573 

0574 

0575 

0576 

0577 

0578 

0579 

0580 

0581 

0582 

0583 

0584 

0585 

0586 



01 ISIZE(i) = 3 
I SIZE < 2 ) » 128 
WRITE (10,1001) 
WRITE (12,1201) 



C 

C 

C 

c 

c 



c 

c 

c 

c 

c 

c 



IFRST 
LI 
LQ 



* 2HT 4 
= CNTRL< 19) 
= CNTRL ( 20 ) 



C 

C 

C 

C 

C 

C 



C 

c 

c 

c 

c 

c 



CALL TIME ( I MON >1 DAY 2 1 YEAR , I HOUR , IMIN ) 

WRITE ( LO , 602 ) CNTRL ( 4 ) 

WRITE ( LO ,603) I MON , ID AY , I YEAR 
WRITE ( LO ,604) IHOUR,IMIN 
WRITE ( LO ,601) 

IDOC = i+IDOC 
IDOCF = i+IDOCF 

05 WRITE (10,1001) 

Preset data array DATA(48>4) with the dummy variable -.999999 
to Make trouble shooting easier. 

do‘ 06* ji=i; ' 4*1 

DO 06 J2=i , 48 , 1 

06 DATA ( J2 , Ji ) = -0.999999 

IF ( IRUN . EQ. 0 ) GO TO 11 

Acquire pressures from scann i val ve-scanner-DUM system. Only 
perf orris in a long-run. 

j6"”i’i 

Ji =1 

IW = CNTRL ( 250 ) 

DO 07 J2=i ,48,1 

DAT A ( J2 , Ji ) = ACGNCJ0, J2,IW) 

07 WRITE (ill, 120) J2,Ji,JQ,J2,IW, DATA( J2 , Ji ) , NOLF 

JO — 4 

Ji =2 

IW = CNTRL ( 250 ) 

DO 08 J 2=1 ,45,1 

DAT A ( J2 , Ji 5 = ACQN( JO, J2,IW) 

08 WRITE (ill, 120) J2, Ji , J0,J2,IW,DATm( J2, Ji) ,NOLF 




TAREi = DATA( 1, 1) 

TARE2 = DAT A ( 1 2) 

Ji = 1 

DO 09 J2=i ,48,1 

09 DATA(J2,Ji) = DATA ( J2 , Ji ) -TAREi 
Ji = 2 

DO 10 J2=i ,45,1 

10 DATA ( J2 , Ji ) = DATAC J2,Ji)-TARE2 

Acquire data (pressures, temperat ures , torque, speed, probe 
positions) from scanner-DVM or scanner-c o un ter system. 

* ■ I I • I I I • • • •••!••••••#••• I • I « I I » • I • I I • «. I. | • I | | ^ • I I • | | ••#••• • I 

11 JI - 3 

IS a 8 

IC - 1 
J3 = 25 

DO 12 J2=i ,5,1 

DATA( J2 , Ji ) = SCANRdS, J3,IC) 

WRITE (LI, 121) J2,Ji,lS,J3,IC,DATA(J2,Ji) , NOLF 

12 J3 a J3+1 
J3 * 30 

DO 13 J2=7, 12,1 

DATA( J2v Ji ) = SCANR ( IS, J3.IC) 

WRITE (LI, 121) J2,J1 ,IS,J3,IC,DATA(J2,J1) ,NOLF 

13 J3 = J3+1 } 
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0587 

0588 

058? 

0590 

0591 

0592 

0593 
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0596 
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0598 
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0600 

0601 

0602 

0603 

0604 

0605 

0606 

0607 

0608 

0609 

0610 

0611 

0612 

0613 

0614 

0615 

0616 

0617 

0618 

0619 

0620 

0621 

0622 

0623 

0624 

0625 

0626 

0627 

0628 

0629 

0630 

0631 

0632 

0633 

0634 

0635 

0636 

0637 

0638 

0639 

0640 

0641 

0642 

0643 

0644 

0645 

0646 

0647 

0648 

0649 

0650 

0651 

0652 

0653 

0654 

0655 

0656 

0657 

0658 

0659 

0660 

0661 



0013 STDY 4:12 PM TUE . , 23 SEP 



1980 



C 

C 

c 

c 

c 



J3 * = 0 
IS = 15 

DO 14 J2= 1 4,17,1 

DAT A ( J2 , Ji ) = SCANR( IS, J3 , IC) 

WRITE (LI , 121) J2,Ji,IS,J3,IC,DATA(J2,Ji) ,NOLF 

14 J3 = J3+i 
J3 = 4 

DO 15 J2=19 , 25 » 1 
DATA(J2,Ji) = SCANR ( IS > J3 > IC ) 

WRITE (LI , 121) 12,11, IS, J3 , IC , DATA ( J2 , J 1 ) ,NOLF 

1 5 J3 — J3+ i 
J3 = 12 

DO 16 J2=27 ,31 , 1 

DAT A ( J2 , J 1 ) = SCANR ( I S » J3 > IC ) 

WRITE (LI, 121) J2,Ji ,lS,J3,IC,DATA(J2,Ji) ,NGLF 

16 J3 = J3+1 
IS a 8 

J3 = 37 
J2 = 33 

DATA(J2,Ji) = SCANR ( IS , J3 > IC) 

WRITE (LI, 121) J2,Ji,IS,J3,IC,DATA(J2,Ji) , NOLF 
IS * 15 
J3 = 40 

DO 17 J 2=34,45, 1 

DAT A ( J2 v J 1 ) = SCANR (IS,J3*IC) 

WRITE (LI, 121) J2, Ji,lS,J3,IC,DATA(J2,Ji) ,NOLF 

17 J3 = J3+1 
J3 = 52 

DO 18 J2=47 , 48,1 

DAT A ( J2 , J 1 ) = SCANR ( IS >J3 , IC ) 

WRITE (LI, 121) J2,J1,IS,J3,IC,DATA(J2,J1) ,NOLF 

18 J3 = J3+1 
IS = 8 

IC = 2 

= 4 

^ J3 = 19 
J2 = 45 

DAT A( J2 , J 1 ) = SCANR ( IS , J3 > IC) 

WRITE (ill, 121) J2,Ji,iS,J3,IC,DATA(J2,Ji) , NOLF 
J3 = 17 
J2 = 46 

DAT A ( J2 , J 1 ) = SCANR ( IS > J3 , IC ) 

WRITE (LI, 121) J2,Ji,IS,J3,IC,DATA(J2,Ji) , NOLF 
IC * 1 
J3 = 36 
J2 = 47 

DATA( J2 , J 1 ) = SCANR (IS ,J3, IC) 

WRITE (LI, 121) J2,Ji,IS,J3,IC,DATA(J2,Ji) , NOLF 
IS » 15 
J3 = 1? 

J2 = 29 

DATA ( J2 , J 1 ) = SCANR ( IS , J3 » IC ) ^ „ 

WRITE (dl, 121) J2, .11,13,^3,10, DA TA(J2,J1), NOLF 
J3 = 20 
J2 = 30 

DAT A ( J2 , J 1 ) = SCANR ( IS ,J3,IC) 

WRITE (dl. 121) J2>J1,IS,J3,IC,DATA(J2,J1) , NOLF 
DATA < 33 , .ll ) = CNTRL < 4) 

DAT A( 34 , J i ) = CNTRL ( 5) 

DAT A < 35 , J 1 ) = CNTRL ( 6) 

DAT A< 36 , J 1 ) = CNTRL ( 2) 

DATA ( 37 , Ji ) = CNTRL < 1) 

DAT A( 38 , J 1 ) = CNTRL ( 3) 

DATA! 39 , J 1 ) - CNTRL ( IS) 

WRITE (LI, 106) NOCR ( 1 ) , NOCR 
READ (LI, *) DATA ( 43 , J 1 ) 

WRITE (LI, 149) ICLR 

IF ( DATA(43 , Ji ) . EQ . 9999 ) STOP 0601 



Print acquired data. 



NO ( 1 ) = 2H n 
NO ( 2) = 2H/a 
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0662 

0663 

0664 

0665 

0666 

0667 

0668 

0669 

0670 

0671 

0672 

0673 

0674 

0675 

0676 

0677 

0678 

0679 

0680 
0681 
0682 

0683 

0684 

0685 

0686 

0687 

0688 

0689 

0690 

0691 

0692 

0693 

0694 

0695 

0696 

0697 

0698 

0699 

0700 

0701 

0702 

0703 

0704 

0705 

0706 

0707 

0708 

0709 

0710 

0711 

0712 

0713 

0714 

0715 

0716 

0717 

0718 

0719 

0720 

0721 

0722 
0 723 
0724 



21 

op 



23 



24 

25 

26 



C 

C 

c 

c 

c 

c 



WRITE ( LO , 605) (J2,J2=i,4) 

Ji=i 

CALL CODE 

WRITE ( IDATA >115) ( DAT A ( Ji , J2 ) , J2=i , 4 ) 

DO 20 J2 = i > 4 , 1 

IF ( DAT A ( Ji , J2 ) .NE. -.999999 ) GO TO 20 
IDATAC 7, J2) = NO ( 1 ) 

IDATAC 8 , J2 ) = NO ( 2 ) 

DO 19 J3=t , 6, 1 

19 IDATA(J3,J2) = 2H ^ 

20 CONTINUE 

WRITE (LO, 608) J 1 , ( ( IDATA ( J3 , J2 ) , J3=i , 8 ) , J2=i , 4 ) , J 1 
DO 26 J 1 =£, 47 , 1 

IF ( ( J 1 /5 ) *5 .NE. Ji ) GO TO 23 
CALL CODE 

WRITE (IDATA, 115) (DATA(Ji,J2) ,J2=i,4) 

DO 22 J2=l,4 1 

IF ( DAT A ( J 1 , J2 ) .NE. -.999999 ) GO TO 22 
I DAT A < 7 , J2) = NO ( 1 ) 

IDATAC 8 , J2 ) = NO ( 2 ) 

DO 21 J3=i > 6 , 1 
IDATAC J3 , J2 ) = 2H 
CONTINUE 

WRITE (LO, 606) J 1 , ( ( I DATA ( J3 , J2 ) , J3=i , 8 ) , J2=l , 4 ) , J 1 
GO TO 26 
CALL CODE 

WRITE (IDATA ,115) (DATA(Ji,J2) ,J2=i,4) 

DO 25 J2 = i ,4,1 

IF ( DATACJl ,J2) .NE. -.999999 ) GO TO 25 
IDATAC 7, J2) = NO ( 1 ) 

IDATAC 8 , J2) = NO ( 2 ) 

DO 24 J3=i , 6 , 1 
IDATAC J3 , J2 ) = 2H 
CONTINUE 

WRITE (LO, 607) ( ( IDATAC J3 ,J2) , J3=i ,8) , J2=l .4) 

CONTINUE 
J 1 = 48 
CALL CODE 

WRITE (IDATA, 115) ( DATA ( Ji , J2 ) , J2=l , 4 ) 

DO 28 J2=i ,4,1 

IF ( DATACJl, J2) .NE. -.999999 ) GO TO 28 
IDATAC 7 , J2) = NOCi) 

IDATAC 8,J2) = NO ( 2 ) 

DO 27 J3=t ,6, 1 

27 IDATAC J3 , J2 ) = 2H 

28 CONTINUE 

WRITE (LO, 606) J 1 ,( ( IDATAC J3,J2) , J3 = i ,8) , J2=l ,4) ,Ji 
WRITE (LO, 609) (J2,J2=i,4) 

CALL TIME (IMON>IDAY,IYEAR, IHOUR, IMIN) 

JSECU = ICON C I SECU , 0 ) 

JCR = I CON C ICR ,0) 

IF C IDOCF .LTi 100 ) GO TO 32 
IFRST = 2HS4 
IDOCF = IDOCF-99 
32 IFILECi) =: IFRST 

IFILEC2) = IC0NCCNTRLC4 ) , 0 ) 

IFILEC3) = ICON C IDOCF , 0 ) 

Ask operator whether to repeat the data acquisition at this 
setting CRP) or to return to the calling program (RT), 

’ NOLF 1 ’J 

IDUM 

( ICLR, 1=1,7) 

2HRP ) GO TO 34 
2HRT ) GO TO ^ 

2H$$ ) STOP 0602 

NOLF 
IRUN 

( ICLR ,1=1,7) 

IHOUR , I MIN 
IHOUR , IMIN 



0725 


33 


WRITE 


(LI, 


110) 


0726 




READ 


CLI, 


149) 


0727 




WRITE 


<LI, 


149) 


0728 




IF C 


IDUM 


.EQ. 


0729 




IF ( 


IDUM 


.EQ. 


0730 




IF ( 


IDUM 


.EQ. 


0731 




GO TO 


33 




0732 


34 


WRITE 


(LI, 


112) 


0733 




READ 


(LI, 


147) 


0734 




WRITE 


CLI, 


149) 


0735 




WRITE 


(LO, 


612) 


0736 




WRITE 


(LO, 


604) 
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0737 






GO TO 05 






0738 


c 










073? 


c 










0740 


c 




. Store acquired dan 


0741 


c 










0742 


c 










0743 




35 


WRITE (LI, 


105) 


IFILE 


0744 






CALL CREAT 


( I DCB 


, IERR 


0745 






IF ( IERR 


.GT . 


0 ) 


0746 






WRITE (LI, 


101.) 


IFILE 


0747 






READ (LI, 


14?) 


IDUM 


0748 






WRITE (LI, 


14?) 


( ICLR 


074? 






IF ( I DUM 


.EQ. 


2H$$ 


0750 






IF ( IDUM 


, NE. 


2HPU 


0751 






WRITE (LI, 


103 J 


IFILE 


0752 






CALL PURGE 


( I DCB 


, IERR 


0753 






IF ( IERR 


. l r . 


0 ) 


0754 






GO TO 35 






07S5 




36 


CALL CODE 






0756 






WRITE (NEW 


,100) 


IDUM 


0757 






WRITE (LI, 


102) 


IFILE 


0758 






IFILE(i) = 


NEW 




075? 






GO TO 35 






0760 




37 


CALL OPEN 


( I DCB 


, IERR 


0761 






IF ( IERR 


.Li\ 


0 ) 


0762 






CALL WRITF 


( IDCB 


, I ERR 


0763 






IF ( IERR 


. LT . 


0 ) 


0764 






CALL CLOSE 


( IDCB 


, IERR 


0765 






IF ( IERR 


.LT. 


0 ) 


0766 






IF ( IRUN 


.EQ. 


1 ) i 


0767 






IF ( IRUN 


■ EQ. 


0 ) i 


0768 






WRITE (LO, 


612) IHOUR , 


076? 






RETURN 






0770 






END 







, MULr 

,IFILE,ISIZE, ITYPE , ISECU , ICR , IDCBS) 
6o TO $7 



= 1,3 ) 
stGP 0603 
GO TO 36 



, IFILE > IOPTN , ISECU , ICR , IDCBS ) 
$TOP 0605 
» . ID 



STOP 0607 
WRITE ( LQ , 61 0 ) 
WRITE (L0,61i> 
IMIN 



IF I LI 
IFIL1 



!' JsIcuJlCR ^NG 



FTN4 COHPILER; HP92060-16092 REV, 1926 (790430) 

** NO WARNINGS *# NO ERRORS *# PROGRAM = 03193 COMMON = 00000 
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6. PROGRAM TXC03 



6.1. DESCRIPTION 

TXC03 is a son program of the father program TXC0J3, by 
which it is scheduled if one of the following operations is 
desired: 

7 - Check the instrumentation 

8 - Manipulate the program control array CNTRL. 

When scheduled by TXCO0 , which suspends operation while the 
son program TXC03 executes, the program TXC03 reads the pro- 
gram control array from the disc, sets the HP interface bus 
and the measurement and control devices to remote control, 
preprograms the digital voltmeter (DVM) , the scanners and the 
counter. CNTRL (50) is the actual decision variable to select 
and call the subroutine, which performs the desired operation. 
When this subroutine has terminated, the interface bus and 
the devices are released from remote control and the control 
array is written into a disc file, so that the next TXCO module 
can read it. The correct termination of each subroutine can 
be verified by checking the stop codes. Note that all stop 
codes ending on 77 indicate correct execution of a subroutine. 

CNTRL (50) Subroutine STOP Code 

7 CHECK TXC03 : STOP 0777 

8 CHNGE TXC03 : STOP 1077 

EXTERNALS : REWRF , ABRT , RMOTE , CHECK, CHNGE, CLEAR, LOCL 

COMMON BLOCKS: FMP , CIBUF, CONTR. 
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The FORTRAN- IV compiler for the HP 21 MX computer requests 
COMMON blocks to be predefined in a BLOCK DATA subroutine 
prior to using a COMMON block in a program, subroutine or 
function . 



BLOCK DATA Subroutine 


Arrays & Variables 


Length 


in Words 


FMP 


IDCB , IFILE , ISIZE , ISECU, ICR 


227B = 


151 10 


CIBUF 


IBUF 


3200B = 


1664 io 


CONTR 


CNTRL 


4 0 OB = 


256 10 



The arrays and variables allocated by the COMMON block FMP are 
frequently used for the data transfer from and to the disc. 
COMMON block CIBUF is designed to take the largest raw data 
array in the TXCO data acquisition and reduction system - 
IBUF(1664) in subroutine FREER. The program modules CHECK 
and CHNGE do not use the complete area allocated by CIBUF. 
COMMON block CONTR allocates the space for the control array 
CNTRL. 

MNEMONIC ABBREVIATIONS : None 

ERROR MESSAGES : If CNTRL (50) is less than 7 or greater than 

8, no subroutine has been selected and the program terminates 
outputting an error message (FORMAT #102) to the standard in- 
put device, i.e. the terminal. 

PROCEDURE : For more detailed information, study the flow 

chart and the information given in the subroutine descriptions. 

DATA FILE: None 
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VARIABLES IN BLOCK 


DATA FMP : 


ICDB 


(144) 


integer 


IFILE 


(3) 


integer 


ISIZE 


(2) 


integer 



ISECU 


integer 


ICR 


integer 



VARIABLES IN BLOCK 


DATA CIBUF 


IBUF (1664) 


integer 


VARIABLES IN BLOCK 


DATA CONTR 


CNTRL (256) 


integer 


VARIABLES IN PROGRAM TXC03 : 


CNTRL (256) 


integer 


NOLF 


integer 


LI 


integer 


ISTOP 


integer 



data control block 
array to contain file name 
array to contain # of records 
in the first and record length 
in 16-bit-words in the second 
word 

security code of data file 
cartridge reference number, 
where data file is located 

buffer array for the raw data 

program control array 

program control array 
suppresses line feed 
LU # of standard input device 
(terminal) 

control variable to select 
STOP code 
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TLOW C1HART PROGRAM ta-cos 
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6 . 2 . 



SUBROUTINE CHECK: 



PURPOSE : This subroutine enables the investigator to 

(independently from the data acquisition modules ABSRV, CALIB, 
FREER, PACER, COMB and STDY) check all data locations to 
troubleshoot or verify the transonic compressor test rig 
measurement system. 

ARGUMENTS : LO ; this variable specifies the output unit 

where the protocol of the check is directed to. In any case, 
the data are displayed on the standard input device (terminal 
LI) and if LO is edjual to LI, double output is suppressed. 

The selection of LO = 6 (line printer) is an appropriate 
choice for a hardcopy of the check protocol. 

EXTERNALS: ACQN , SCANR, RPACE 

COMMON BLOCK : CONTR; for detailed explanation refer to the 

TXC03 description. 

MNEMONIC ABBREVIATIONS : None 

ERROR MESSAGES : None 

PROCEDURE : For more detailed information, study the flow 

chart. After having assigned the I/O reference, CHECK asks 
the operator which particular system should be checked. 
Instrumentation code system being checked 

1 S/V-S/V controller - scanner - 

DVM - system 
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Instrumentation Code System Being Checked 



2 amplifier - scanner - DVM - system 

3 Pacer 

The operator then selects the desired code and the program 
branches . 

i ) S/V - S/V controller - scanner - DVM - system 

The operator has to input the number (1 thru 5) of 
the S/V, the low port and the high port. Erroneous input will 
cause the program to re-request the data. If S/V #2 is se- 
lected and either low or high port are odd, they will be 
increased to the next even number. In increments of 1 (2 
resp., if S/V #2 is addressed) the subroutine steps from low 
to high port, taking a reading of each. The result is dis- 
played and printed immediately. Upon completion the operator 
is asked whether another check shall be done. The answer is 
YES or NO, and if YES is entered, SUBROUTINE CHECK is run 
again from the beginning. 

ii) amplifier - scanner - DVM - system 

The operator has to input the number (1 or 2) of the 
scanner, the low channel and the high channel. Erroneous in- 
put of the scanner # will cause the program to re-request the 
data, whereas no check is made whether the boundaries for the 
scan, low channel ILOW and high channel IHIGH , are correct. 

In increments of 1 the subroutine steps from low channel to high 
channel, taking a reading at each port. The result is displayed 
and printed immediately. Upon completion, the operator is 
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asked whether another check shall be done. The answer is YES 



or NO, and if YES is entered, SUBROUTINE CHECK is run again 
from the beginning. 



iii ) Pacer 

The operator has to input the pacer control para- 
meters : 



ADCHNL 



PAMO 



PAIR 

START 

INCR 

STOP 

REP 



A/D analog input channel to be selected by 
the A/D converter multiplexer. 

Pacer mode 

= 1 allows pacer to trigger A/D conversion at 
the specified position in any blade inter- 
val. The variable PAIR is ignored. 

= 2 causes pacer to select blade pair # PAIR. 

# of blade pair selected (1 - 9) 

Start count to step through blade passage 
Increment to step through blade passage 
Stop count to step through blade passage 
Number of repetitions at each individual point 
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NO, and if YES is entered, start to read this sec- 
tion SUBROUTINE CHECK again. 



DATA FILE : None 

VARIABLES : 



LO 


integer 


LU# of standard 


output device 






(line printer) 




CNTRL (256) 


integer 


program control 


array 


NOLF 


integer 


suppresses line 


feed 


NOCR ( 2 ) 


integer 


suppresses line 


feed and carriage 






return 




ICLR ( 3 ) 


integer 


clears line above cursor 
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\ 



ADCHNL 


integer 


Pacer control parameter 


see sectio 


PAMO 


integer 


Pacer control parameter 


iii) for 


PAIR 


integer 


Pacer control parameter 


detailed 


START 


integer 


Pacer control parameter 


„ explana- 


INCR 


integer 


Pacer control parameter 


tion 


STOP 


integer 


Pacer control parameter 




REP 


integer 


Pacer control parameter 




LI 


integer 


LU# of standard interactive 






input device (system terminal) 


LINES 


integer 


line count 




IDIUM 


integer 


decision variable 




I PORT 


integer 


# of desired S/V (1 — 5) 




I LOW 


integer 


low port of desired S/V 




IHIGH 


integer 


high port of desired S/V 




ISTEP 


integer 


increment to step from low to 






high port 




IW 


integer 


delay between closing S/V port 






and taking the DVM reading in 






tens of ms . 




V 


real 


pressure reading (raw data) 


ISCR 


integer 


# of desired scanner (1 or 2) 


I LOW 


integer 


low channel of desired scanner 


IHIGH 


integer 


high channel of desired scanner 


LS 


integer 


LU# of the desired scanner 


D 


real 


voltage reading (raw data) 


AVRGE 


real 


average voltage as returned from 



subroutine RPACE 
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Chock amplifier --scamur - ibvM 




Chock ampkfiar - 'Stanruzt ~ DVM — system 




Qxzck Gtryzlffiat - ^scanner ~ JbYW - yjrystenr? 



I I 









~/s 

— 23 



“ ® 

- <20 O 

~~~ V 

/kic operator ro 
enter PACER 
Control pararreten 



\ 




"Read MCNNL, 
F*ho, PPZP , suer, 
IHcff, C70P £ PSP. 


\ 


L_ 



Call JACER 

line RPACE ana' 1 

chreci amihei 

<J(jtp<Ai TO (/Hfl, 

indicated ky LO* 

CALL RPACe 



A 



32 

SS 






A 



..201 



Check PACE/? 




Check S/V- S'/V-ctonboller - scanner - bvrt’-sysfetoi 
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Check 'S/'V - S/V-conincJlct — Scanner ~ DYC/ - 




Check C/V - &V-con1roHet - scanner - DVM - tyr ferry 



L 




Check S/V - SW-cortolkt - boanmr — DVM 




J 2D a 



6 . 3 . 



SUBROUTINE CHNGE : 



PURPOSE : Change any element of the program control array CNTRL 

on line and display any element of CNTRL. 

ARGUMENTS : None 

EXTERNALS : CODE, REWRF 

COMMON BLOCK : CONTR; for detailed explanation refer to the 

TXC03 description. 

MNEMONIC ABBREVIATIONS : 

C ... Change CNTRL (i) to new value 
D ... Display current value of CNTRL (i) 

R ... Return to the calling program 

Note : C is followed by the value of«i» and the new 

value for «CNTRL (i)» and D is followed by the value 
of «i » . 

ERROR MESSAGES : None 

PROCEDURE : For more detailed information, study the flow 

chart. After having assigned the I/O reference and reset 
the line count, the operator is asked what to do. The input 
in the first inverse video box specifies where to branch to. 

i) Change CNTRL (i) to new value Input: C 

The control character C is followed by the value of 
«i» and the new value for «CNTRL (i)». Each of the latter 
data items has to be aligned to the right margin of the two 
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following inverse video boxes. If the input is to be 
compiled as ASCII code, the identifier 2H has to precede 
the two input characters. 

EXAMPLE A ) Suppose, the time delay IW between closing 
a S/V port and taking the DVM reading shall be changed to 
1 second, which is 100*10 milliseconds. Enter 



0 



250 



100 



and press the RETURN key. The subroutine responds dis- 
playing the message CNTRL (250) changed from 80 to 100. Where 
80 is the previous value of CNTRL (250) . 

EXAMPLE B ) The character, used to display the just 
acquired wave form in subroutine PACER shall be changed to 
the asterisk ( = 2H* ■ i^ . Enter 

0 [ 249) | 2H*l t j~| ' blank, because subroutine 

PICTR outputs this item 
in Al-Format 



key. The subroutine responds 



and press the | RETURN 
displaying 

CNTRL (249) changed from 2H+lj to 2H* u . 
where the add sign ( = 2 h+uj) was previously used for the plot. 



ii) Display actual value of CNTRL (i) [input: D] 

The control character C is followed by the value 
of «i» and, only if the element CNTRL (i) shall be displayed 
in ASCII-mode, the string «2H» . The data for «i» has to 
be aligned to right margin of the second inverse video box 
and «2H» has to be centered in the third box. 
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EXAMPLE A) Display the value for the cartridge reference 
number, where the raw data files are located. Apoendix a. 3 
(Program Control Array) reveals that you have to look into 
CNTRL (30) . Enter 




and press the RETURN key. The subroutine responds by 
informing you that 

The actual value of CNTRL (30) is 26. 

EXAMPLE B) Display the first two characters of the name 
of the raw data file, which are written into CNTRL (32) . Since 
the file name is ASCII coded, the ASCII-identif ier « 2H » must 
not be forgotten. Enter 



0 



32 



2H 



and press the 



RETURN 



key. The subroutine responds by 

informing you, that 

The actual value of CNTRL (32) is 2HT5. 

This information reveals that the last data acquisition was 
a combination probe survey, since there all data file names 
start with «T5» . 



iii) Return [Input: R] 

Enter R; Now the subroutine asks, whether to clear 
the informative responses, displayed by this subroutine 
previously. Inputting anything else but NO initializes the 
program to clear the screen. 

Then the subroutine terminates writing the modified 
control array back into disc file. 
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o 2 oO 




1 

Tncr*zcis <z line 
Count and A/rihz 
del voJuo, of 
CNTRL CI&*rJ 
into v&r (obicz 
LOLD. 

ISCR'ISCX* / 

1DL 0 - CS*TFL ClCNT) 




.... } 

:.sy 



"~K 
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Change program 




r rjcjQ prajrowl control Qrrcyj 
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6.4 



PROGRAM LISTING TXC03 



PAGE 0001 FTN. 4:12 PM TUE., 23 SEP., 1980 



0001 FTN4 , L ■ 

0002 BLOCK DATA 

0003 *, / FMP / IDCB< 144) , I FILE (3) ,ISIZE(2) , ISECU, ICR 

0004 COMMON / FMP / IDCB, IFILE, ISIZE, ISECU, ICR 

0005 INTEGER IDCB< 144) , IFILEC3) , ISIZE<2> 

0006 END 



FTN4 COMPILER: HP92060-16092 REV. 1926 (790430) 
** NO WARNINGS ** NO ERRORS ** 

BLOCK COMMON FMP SIZE = 00151 
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PAGE 0002 FTN . 4:12 PM TUE . , 23 SEP., 1980 



0007 
OOOfl 
000? 
0 010 
0011 


BLOCK DATA 

/ CIBUF / IFUF ( i 664 ) 
COMMON / CIBUF / IBUF 
INTEGER I BUF ( 1664 ) 

END 


FTN4 


COMPILER: HP92060-16092 REU . 1926 (790430) 



** NO WARNINGS ** NO ERRORS ** 
BLOCK COMMON CIBUF SIZE = 01664 
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PAGE 0003 FTN. 



4! 12 PH TUE., 23 SEP., 1980 



0C12 

0013 


BLOCK DATA 

*, / CONTR / CNTRL ( 256 ) 


0014 

0015 

0016 


COMMON / CONTR / CNTRL 
INTEGER CNTRL ( 256 ) 

END 


FTN4 


COMPILER: HP9206Q-1 6092 REV. 1926 C790430) 



#* NO WARNINGS ** NO ERRORS ** 
BLOCK COMMON CONTR SIZE = 00256 

\ 
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PAGE 

0017 

0018 

0019 

0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 

0061 

0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 

0081 

0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 



iroo 



0004 FTN . 
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C 

C 

G 

G 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



PROGRAM TXC03 (3,99) 



The operating system RTE IV B reauests the data acquisition 
progran TXCQ for the one stage transsonic compressor to be 
split into several programs scheduled by the father program 
TXCO. This son program TXC03 consists of the subroutines 
CHECK and CHNGE . These codes handle the equipment check and 
the on line modification of the control array , The data 
transfer between father and son programs take place via the 
control arrav CNTRL (disc file CNTRLF) and the data array 
IBUF (disc file IBUFF ) . 

The utility subroutines ACQN > CNTL , CURVE , ICON , IPORT, 
PICTR, REWRF, RP ACE , SCANR , tlME and WAIT are added. 



Author: 
Date : 



Hans M. Zebner 
March 12, 1980 



A detailed program description is available in the TXCO log, 



*, Third son program of father program TXCO. 



COMMON / CONTR / CNTRL 
INTEGER CNTRL ( 256 ) 



DATA NOLF /QG6537B/ 

101 FORMAT ( 9X " "20X“ " A2 ) 

102 FORMAT (" TXC03 : PROGRAM ABORTED! NO SUBROUTINE HAS BE 
*EN INITIALIZED.*) 

801 FORMAT ("CA" ) 

01 FORMAT ( l, FlR7M3AiH0T3") 

01 FORMAT ("PF4G6T") 

1S01 FORMAT (“CA' 1 ) 

CALL RLURF (-1,2) 

LI — CNTRL(19) 

IF ( CNTRL ( 50 ) .LT. 7 .OR. CNTRL(50) . GT . 8 ) GO TO 03 



C 

C 

C 

C 

C 



C 

C 

C 

C 

C 



Set interface bus and devices to remote control 



CALL 

CALL 

CALL 

CALL 

CALL 



ABRT (7,2) 



RMOTE 
R MOTE 
RMOTE 
RMOTE 



( 8) 
( 10 ) 
( 12 ) 
( 15) 
801) 



WRITE ( 8 j 
WRITE 

WRITE _____ 
WRITE (15,1501) 



( 10 , 1001 ) 

( 12 , 1201 ) 



Call subroutine indicated by CNTRL(50) 



IF T< ( P CNTRlI50) SO !e"q. 0 7 > CALL CHECK < CNTRL < 51 > > 
IF ( CNTRL ( 50 ) . EQ . 8 ) CALL CHNGE 



C 

C 

C 

C 

C 



Release interface bus and devices from remote control. 



CALL CLEAR (7,1) 
CALL LOCL (7) 
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PAGE 0005 TXC03 4:12 PM TUE . , 23 SEP., 1980 



0092 CALL REURF (1,2) 

0093 WRITE (LI, 1 Q I ) NOLF 

0094 GO TO (01,02) ISTOP 

0095 01 STOP 0777 

0096 02 STOP 1077 

0097 03 WRITE: (LI, 102) 

0098 END 



FTN4 COMPILER: HP92Q60-16Q92 REM . 1926 (790430) 

** NO WARNINGS ** NO ERRORS ** PROGRAM = 00220 COMMON = 00000 
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PAGE 0006 FTN. 4:i2 PM TUE . , 23 SEP., 1980 



0099 
310 0 
0101 
0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 
0111 
0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 
0121 
0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 



C 

c 

c 

c 

c 

c 

c 

c 

c 



SUBROUTINE CHECK (LO) 



Instr umen tat ion check. 

Author: Hans M. Zebner 

Date : January 11, 1980 

Detailed program description is available in TXCO log; The 
Comment statements match to the flow chart explanations. 



’Checks’ the* instrumentation! 
COMMON / CONTR / CNTRL 



INTEGER CNTRL (256) , NOLF , NOCR ( 2 > ,ICLR (3) 

INTEGER ABCHNL, P AMO , PAIR , START, I NCR , STOP , REP 

i :: * o r m r <:> c: m nr. c i< r a r r 

10 0 FORMAT ( " i<;> t.J I* R O U T* ill Nl l::I (3 H l::I (3 l< 

# " ) 

101 FORMAT (/"Enter instrumentation code"// 

*"1 . . , S/V“/ 

*" 2 ... Scanner"/ 

*"3 ... Pacer"//" “A2) 

102 FORMAT (/“Enter S/U *, LO , HI“21X,2A2) 

103 FORMAT (/“ Scannivalve *"I3/“ P or t "5X“Uo 1 1 aqe " ) 

104 FORMAT (I4,F13.6" M ) 

105 FORMAT (/“Enter scanner LO , HI"17X,2A2) 

106 FORMAT (/5X“Scanner #“I3/^* Cha n “8X “Data “ ) 

109 FORMAT (“ En t e r " // " A/D channel Pacer mode ", 

Blade pair Start count Increment ", 

*"Stop count ♦ repe t i t ions" A2// 

%7 ( " " ) A2 ) 

110 FORMAT <7tl3, iX> ) 

111 FORMAT ("A/D channel Pacer mode Blade pair 
* Start count Increment Stop count", 

*" * rep 2titions“A2/Iil ,Iii7lU ,112 110,111 ,I14,A2) 

107 FORMAT (“Enter YES to repeat “2 IX , 2A2 ) 

108 FORMAT ( " 



c: a M r r a l 



c:uj *t 



Check completed") 
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0138 

0139 
014 0 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 
0161 



0170 

0171 
Qt72 
0173 



149 FORMAT ( (3A2) ) 

1001 FORMAT < "F 1R7M3A 1H1 T3 " ) 

; r-* o r m t 3 c; m »••: c: i< <s r o p 

DATA NOLF /006537D/ 

DATA NOCR /0 0 0 033B , 04 0 433B/ 

DATA ICLR /0 15524B , 0 15515B , 0 06537B/ 



C 

C 

C 

C 

C 



C 

C 

C 

C 



01 



LI = CNTRL ( 19 ) 

IF < LO . NE , LI ) WRITE (LO,10Q) 
LINES = 0 




WRITE (LI, 101) NOLF 
READ (LI, *) IDUM 
WRITE (LI, 149) (ICLR, 1=1, 8) 

IF ( IDUM , LT . 1 .OR, IDUM 

GO TO (02,05,20) IDUM 



.GT. 



3 ) GO TO 01 




UlOi. Lr 

0163 


02 WRITE (LI, 


102) NOCR 
















0164 


READ (LI, 


*) IPORT, ILOW > IHIGH 
















0165 


WRITE (LI, 


149) (ICLR, 1=1, 2) 
















0166 


ISTEP = 1 


















0167 


IF ( IPORT 


.LT. 01 .OR. 


IPORT 


.GT , 


05 


) 


GO 


TO 


02 


0168 


IF ( ILOW 


.LT. 01 .OR. 


ILOW 


.GT, 


48 


) 


GO 


TO 


02 


0169 


IF ( IHIGH 


.LT. ILOW .OR. 


IHIGH 


.GT. 


48 


) 


GO 


TO 


02 



IF ( IPORT .NE. 
ISTEP = 2 
IF ( ( ILOW /2)*2 
IF ( ( IHIGH/2 ) #2 



2 ) GO TO 03 



, NE , 
, NE , 



ILOW ) ILOW = ( ILOW /2)*2+2 
IHIGH ) IHIGH=( IHIGH/2) #2+2 



224 



PAGE 0007 CHECK 4:12 PM TUE . , 23 SEP., 1980 



0174 

0175 

0176 

0177 

0178 

0179 

0180 
0181 
0182 

0183 

0184 

0185 

0186 

0187 

0188 

0189 

0190 

0191 

0192 

0193 

0194 

0195 

0196 

0197 

0198 

0199 

0200 
0201 
0202 

0203 

0204 

0205 

0206 

0207 

0208 

0209 

0210 
0211 
0212 

0213 

0214 

0215 

0216 

0217 

0218 

0219 

0220 
0221 
0222 

0223 

0224 

0225 

0226 

0227 

0228 

0229 

0230 

0231 

0232 

0233 

0234 

0235 

0236 

0237 

0238 

0239 

0240 

0241 

0242 

0243 

0244 

0245 



C 

C 

c 

c 

c 



c 

c 

c 

c 

c 



c 

c 

c 

c 

c 



c 

c 

c 

c 



03 J5l}E L '?L I ; N ?0 3 ) LI Ipi»“T l,ITE <L0 - 1I,3> IPmT 
LINES = LfNES+3 




WRITE (10,1001) 



DO 04 1 = I LOW , IHIGH , I STEP 
IW * CN TRLC2S0) 

U = ACQN( IPORT, I ,IW) 

IF ( _LO . NE . LI ) WRITE ( LO , 104) I,U 



WRITE (LI. 104) I,V 
04 LINES = LI NES+i 
GO TO 07 




05 WRITE (LI, 105) NOCR 

READ (LI, *) ISCR > I LOW , I HIGH 
WRITE (LI, 149) (ICLR, 1=1,2) 

IF < ISCR . EQ . 1 ) tis = 8 

IF ( ISCR .EG. 2 ) LS - 15 

IF ( ISCR ,LT. 1 .OR. ISCR . GT , 

IF ( LO .NE. LI ) WRITE (LO, 106) ISCR 

WRITE (LI, 106) ISCR 

LINES = LINES+3 

ILOU = ILOW+i 

IHIGH = IHIGH+i 



2 ) GO TO 05 




WRITE (10,1001) 

DO 06 I=ILOW, IHIGH 
II = I-i 

D = SCANR ( LS ,11,1) 

IF ( LO .NE. LI ) WRITE ( LO , 104) II, D 
WRITE (LI, 104) II, D 
06 LINES = LINES+1 
GO TO 07 




20 WRITE (LI, 109) ( NOLF ,1=1,2) 

READ (LI , 110 ) ADCHNL >P AMO, P AIR , START, I NCR , STOP , REP 
WRITE (LI, 149) (ICLR.i=l,S$ 

WRITE (Ll[ ill) NOLF, ADCHNL, PAMO, PAIR, START, INCR, STOP, REP, NOLF 
LINES = L INES+2 

CALL RP ACE ( ADCHNL , PAMO , PAIR , STAR T , INCR , STOP , R EP , AURGE , 1 , LO ) 
LINES = LI NES+3 




07 WRITE (LI, 107) NOCR 
READ (LI , 149) IDUM 
LINES =* LiNES + 1 

WRITE (LI, 149) (ICLR, 1=1 , LINES) 

IF ( IDUM .EQ. 2HYE ) GO TO 01 
IF ( LO .EQ. 6 ) WRITE ( LO , 108) 
RETURN 
END 
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PAGE 0008 CHECK 4s 12 PM TUE., 23 SEP., 1980 
FTN4 COMPILER: HP92060-16092 REV. 1926 (790430) 

** NO WARNINGS ** NO ERRORS ** PROGRAM * 01030 COMMON = 00000 
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PAGE 0009 FTN . 
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0246 

0247 

0248 

0249 

0250 

0251 

0252 

0253 

0254 

0255 

0256 

0257 

0258 

0259 

0260 
0261 
0262 

0263 

0264 

0265 

0266 

0267 

0268 

0269 

0270 

0271 

0272 

0273 

0274 

0275 

0276 

0277 

m 

0280 

0281 

0282 

0283 

0284 

0285 

0286 

0287 

0288 

0289 

0290 

0291 

0292 

0293 

0294 

0295 

0296 

0297 

0298 

0299 

0300 

0301 

0302 

0303 

0304 

0305 

0306 

0307 

0308 

0309 

0310 

0311 

0312 

0313 

0314 

0315 

0316 

0317 

0318 

0319 

0320 



C 

C 

C 

C 

C 

C 

C 

C 

C 



SUBROUTINE CHNGE 



Hodify control array CNTRLC256) interactively . 

Author: Hans H. Zebner 

Date : January 11, 1980 

Detailed program description is available in TXCO loq; The 
Comment statements match to the flow chart explanations. 



*, Enables user to change control array on-line. 

COMMON / CONTR / CNTRL 
INTEGER CNTRL ( 256 ) 

INTEGER INEW ( 3 ) , NOLF , NOCR ( 2 ) , ICLR ( 3 ) 



t o 



l :: * OR MA *r <i> (3 M M a 1 :E <:> V ^ R V 

100 FORMAT (/*• Enter' 1 // 

*" C, I and new value of CNTRL ( I ) 

* change the desired element I**/ 

*" D, I"28X".., to display the desired element I" 

"28X" . . . to return to the calling program"// 
"A2) 

(Al^iX, I3,iX,3A2> 

( " CNTRL ( "13" ) chanqed from "16" to "16* 

( "CNTRL( "13" ) changed from 2H M A2" to 
( " Clear screen? YES or NO "2A2) 

("The actual value of CNTRL("I3") is M I7" .“) 
("The actual value of CNTRL("I3"> is 2H"A2 n 
( (3A2) ) 



*/" 

^ ii 

101 FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 



102 

103 

104 

105 

106 
107 
149 



C 

C 

C 

C 

C 



C 

c 

c 

c 

c 



02 

03 

04 



" ) 

2H"A2” 



r a r m r $*> a m m g ie 



<:> *r a p 






S 0^1^0404338/ 



>AtA nBBS? / 

DATA ICLR /01S524B , 01551 SB , 006S37B/ 

LI = CNTRLC 19) 

ISCR = 0 




WRITE (LI, 


100) 


NOLF 


READ (LI, 


101 ) 


IDUM, 

(ICLR 


WRITE (LI, 


149) 


IF ( IDUM 


:I8: 


2HC 


IF ( IDUM 


2HD 


IF ( IDUM 
GO TO 01 


.EQ. 


2HR 


! Change 


desire 


d e lei 



1 1 > O / 

) GO TO 02 
) GO TO OS 
) GO TO 06 



ISCR = ISCR+1 
IOLD = CNTRL ( ICNT ) 

IF ( INEU<2) .NE. 2H2H ) GO TO 03 
CNTRL ( ICNT ) = INEUI<3> 

GO TO 04 
CALL CODE 

READ (INEU, 102) CNTRL ( ICNT) 

IF < INEU ( 2 ) .NE. 2H2H, ) URIIE,(LI. 
IF < INEW (2) .®?. 

GO TO 01 



103) ICNT. IOLD. CNTRL ( ICNT 1 

2H2H ) WRITE (LI, 104) ICNT, IOLD, CNTRL (ICNT) 
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PAGE OOiO 



CHNGE 4: 12 PM TUE . , 23 SEP., 1980 



0321 

0322 

0323 

0324 

0325 

0326 

0327 

0328 

0329 

0330 

0331 

0332 

0333 

0334 
0 335 

0336 

0337 

0338 

0339 

0340 

0341 

0342 

0343 

0344 

0345 

0346 



C 

C 

C 

C 



C 

C 

C 

C 

C 

C 



Display desired element of control array CNTRL . 



05 ISCR = ISCR+1 

IF ( INFW ( 2 ) . NE. 2H2H N ) WRITE /LI, 106) ICNT , CNTRL < ICNT ) 

IF ( I'NEW (2) .EO. MH ) WRITE (LI, 107) ICNT, CNTBL(ICNT) 

GO TO 01 



Terminate modification of control array CNTRL; write it 
back to the disc; return to calling program. 



06 WRITE (LI, 105) NOCR 
READ (LI, 149) IDUh 

IF ( IDIJM .EQ. 2HNG ) GO TO 07 

IF ( ISCR .GT. 0 ) WRITE (LI, 149) ( ICLR , 1=1 , ISCR ) 

07 WRITE (LI, 149) ICLR 
CALL REWRF (1,2) 

RETURN 

END 



FTN4 COMPILER*. HP92060-16092 REV. 1926 (790430) 

** NO WARNINGS ** NO ERRORS ** PROGRAM = 00S81 COMMON = 00000 



\ 
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7. 



UTILITY SUBROUTINE PACKAGE TXCOU 



7.1. Description 

Subroutines and functions, which are commonly used by 
either TXC02 , TXC02 or TXC03 , are contained in the utility 
package TXCOU (source code is saved in file &TXCOU; relocatable 
binary code is saved in file %TXCOU) . Thus the length of the 
TXCOl, TXC02 or TXC03 source files can be kept to minimum, 
which allows editing and recompiling TXCOl, -2, -3 separately, 
which saves time. When loading TXCOl, -2, -3, the load of 
the utility subroutines has to be included using the multiple 
search loader command (MS ,% TXCOU ) . Since the utility sub- 
routines and functions are short and straightforward, the 
comment statements and program explanation included in the 
code serve to describe them. The present section briefly 
outlines the utility subroutine package. 

Name Purpose Author 

ACQN Positions Scanivalve (S/V) and Geopfarth 



reads DVM 



CNTL Closes scanner channels, which 



Geopfarth 



control the S/V controller, HG78K 
CURVE Computes coefficients for a linear 



McGuire 



curve fit 



ICON Converts a one or two digit inte- 



Geopfarth 



ger into a two character ASCII 
string 
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Name 


Purpose 


Author 


IPORT 


Interrogates S/V controller and 
returns the present port # 


Geopf arth 


PICTR 


Uses the (24 x 80 dot) CRT of a 
terminal for a graphics display 
of data acquired with the PACER 


Zebner 


REWRF 


Data transfer disc file to pro- 
gram array and vice versa 


Zebner 


RPACE 


Triggers A/D through the PACER 
and calculates the average 
voltage 


Zebner 


SCANR 


Closes scanner channel and reads 
the DVM or digital counter 


Geopfarth 


TIME 


Obtains date and time in ASCII- 
format 


Zebner 


WAIT 


Causes a defined time delay 


Geopfarth (Original) 
Zebner (Modification) 



R5AL FUNCTION ACQN 

Arguments : INTEGER: IVALVE, IADES , IW 



I VALVE - Desired S/V # 

IADES - - - Desired port # of S/V 
IW - - - - - Time delay in tens of ms between 
closing transducer relay and 
taking the DVM reading 
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Example : The pressure on S/V #4, Port #13 is to be read with 

the time delay to be 0.5 sec (= 500 ms = 50 x 10 ms). The 
correct call is 

I VALVE = 4 
IPORT = 18 
IW = 50 

PRES = ACQN ( I VALVE , IPORT, IW) 
or 

PRES = ACQN (4, 18, 50) 

In both cases the DVM reading is written into the real 
variable PRES. 

It is desirable to step forwards systematically and 
sequentially through the required parts of a S/V in order to 
reduce unnecessary wear. Whenever a S/V is scanned, the 
operator should watch the data system closely. In some 
cases (e.g. if the HP 9830 is brought on line) the HP- 
Interface bus and the devices may be downed. If this hap- 
pens when the program ACQN has closed the scanner channels 
(on scanner #1) which either resets or advances the S/V the 
S/V relay will burn out. To prevent damage, the operator 
must turn off the power to scanner #1 immediately, then 
bring the data system up again using the UP-command (see HP 
manuals) . 

SUBROUTINE CNTL (ICHAN, IDEL, ISTEP, K) 

Arguments : INTEGER: ICHAN, IDEL, ISTEP, K 

ICHAN - - - Channel # of scanner #1 (LU# = 8) 
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IDEL - - - dumber of repetitions to close 
the scanner channel 

ISTEP - - - Increment to step from 1 through 
IDEL 

K - - - - - Function code 



K = 1 Close for 10 ms, wait for 

150 ms; Repeat "IDEL" times; 
return 

K = 2 Close for 10 ms, wait for 
4 sec ; return 
K = 3 Close; return 

An example is unnecessary since the only subroutine to use 
SUBROUTINE CNTL is the REAL FUNCTION ACQN , which is itself 
a utility. The user won't have to deal with CNTL. 

SUBROUTINE CURVE (N, X, Y, SLOPE, SECON) 

Arguments : INTEGER: N 

REAL: X (N) , Y (N) , SLOPE, SECON 

N - - - - Number of data points 
X(N) - - - Abscissa of data points 
Y (N) - - - Ordinals of data points 
SLOPE - - Slope of linear curve fit 
SECON - - Intercept of linear curve fit 
Example : Suppose the following (N = 6) pairs of data points 

shall be approximated by a linear curve fit: 



X(l) = 1.0 


Y (1) = 


105.6 


X ( 2 ) = 2.5 


Y (2) = 


105.4 
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X ( 3 ) = 3.0 


Y ( 3 ) = 104.8 


X (4) = 5.0 


Y ( 4 ) = 104.1 


X (5) = 6.5 


Y ( 5 ) = 102.9 


X ( 6) = 8.0 


Y ( 6) = 102.7 



The situation is shown in the following sketch: 




. , ■ ' 1 ; * 1 — D> 

o/<2S4s*789/oX 

To obtain the slope and the intercept of the linear curve fit 
(which is derived using the least squares criterion) , program 
CALL CURVE (6, X, Y, SLOPE, SECON) 

and the results will be returned from SUBROUTINE CURVE 
SLOPE = -.461 
SECON = 106. 247 
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INTEGER FUNCTION ICON 



Arguments : INTEGER: I, N 

I, N - - - Two integer numbers to be added 
ICON - - - The result of the addition (which 
should not exceed two digits) , but 
ASCII converted. 



Example : Suppose the data documentation page IPAGE shall be 

converted to an ASCII-string named JPAGE . The correct call is 
JPAGE = ICON (IPAGE, 0 ) 



or 



JPAGE = ICON ( 0 , IPAGE) 

The bit structure, if IPAGE is 71 ^q, is as follows: 



IPAGE : 
JPAGE : 



15 

00000000 

00110111 



ASCI I -converted 



0 

01000111 

00110001 

' y 

ASCI I-conver ted 




ASCII converted 71 



INTEGER FUNCTION IPORT 

Arguments : INTEGER: IVALVE 

I VALVE - - - Desired S/V (1 through 5) 

Example : The call 

I WHERE = IPORT (5) 

returns the present port # of S/V #5 and writes it into the 
variable IWHERE. 
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SUBROUTINE PICTR 



Arguments : INTEGER: LO, NUMBER, NEWPG, ICL, ISIGN 

REAL : AMPL 

LO - - - - Defines terminal LU# (either 1 or 13) 
NUMBR - - Identifier to appear in the "drawing" 
NEWPG - - No significance I Will be altered by 
PICTR 

ICL - - - No significance! Will be altered by 
PICTR 

ISIGN - - Character to be used for the drawing 
AMPL - - - Amplitude range of the raw data 
returned to the calling program 
Subroutine PICTR is designed for the TXCOl-subroutine 
PACER, from which it gets the data through the COMMON block 
CIBUF. PICTR uses the enhanced display capabilities of the 
video terminal to produce a "drawing" which, of course, is 
of limited resolution. It allows the operator to verify the 
acquired raw paced run data qualitatively by checking the 
"drawing" against the oscilloscope display. See the listing 
of subroutine PACER, if an example is needed. 

SUBROUTINE REWRF 

Arguments : INTEGER: I REWRF , IWHATA 

I REWRF - - Determines whether the array indi- 
cated by IWHATA shall be read from 
a disc file into an array or whether 
it shall be written into a disc file 
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IREWRF = -1 Read data from disc file into 
array 

IREWRF = +1 Write data from array into 
disc file 

IWHATA - - Specifies the type of data to be transferred 
IWHATA = 1 Array IBUF «-*■ disc file IBUFF 

IWHATA = 2 Array CNTRL «-->• disc file CNTRLF 

This subroutine relieves the individual TXC01, -2, -3 
subroutines from the routine task of data transfer between disc 
and program (CP) . 

Example : The four applications are: 

i) Read the program control array from disc file CNTRLF:: 26 

into array CNTRL: CALL REWRF (-1, 2) 

ii) Write the program control array from array CNTRL into 

disc file CNTRLF: :26: CALL REWRF (1, 2) 

iii) Read the raw data buffer from disc file IBLJFF:: 26 into 

array IBUF: CALL REWRF (-1, 1) 

iv) Write the raw data buffer from array IBUF into disc file 

IBUFF:: 26: CALL REWRF (1, 1) 

SUBROUTINE RPACS 

Arguments : INTEGER: ADCHNL , PAMO, PAIR, START, INCR, 

STOP, REP, IPRINT, LO 
REAL : AVRGE 

ADCHNL - - A/D input channel to be selected (0...15) 
PAMO - - - Pacer mode (1 or 2) 

PAIR - - - Blade pair (1...9) 

START - - - Start location (in counts) for data scan 
across the blade passage 
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INCH 



Step size (in counts) to scan across 
the blade passage 
STOP - - - stop location (in counts) for data 
scan across the blade passage. 

HEP - - - - Number of repetitions at each loca- 
tion in the blade passage 
IPRINT - - Flag to decide whether to output 
intermediate information 
IPRINT = 1 Print all intermediate 

data and suppress pointer 
at the terminal 

IPRINT = 0 Suppress printed output 
and initialize pointer 
at the terminal 

LO - - - - LU# of device for printed output 
AVRGE - - - Average voltage of paced run data 
This subroutine is the control program to acquire data 
from the A/D converter in the synchronized PACER mode. (See 
also the description of subroutine PACER (Section 4.5), where 
the synchronized sampling is explained.) Although the (de- 
coded) voltages from the A/D converter are REAL numbers 
between -1.0 volt and +1.0 volt, the data storage uses an 
integer array. Before writing the voltages into the data 
array, they are multiplied by 10,000. Note that if one of 
the PACER control parameters is out of the defined range, it 
is set to a default value without outputting any warning. 

The subroutine contains a large number of I/O statements 



237 



which were necessary during the development of the TXCO pro- 
gram system. In order to increase speed, the unnecessary 
statements should be removed. A further improvement would 
be a conversion from FORTRAN to ASSEMBLER programming lan- 
guage. An example of a call to subroutine RPACE is contained 
in the description and listing of subroutine PACER (Section 
4.5). 

REAL FUNCTION SCANR 

Arguments ; INTEGER: LU, ICHAN, K 



LU - - - - Logical Unit # of the desired scanner 
(either 8 - scanner #1 or 15 - scan- 
ner #2) 

ICHAN - - - Scanner channel (integer) 

K - - - - - Instrument code 

K = 1 Read the DVM 

K = 2 Read the digital counter 



Example A : To obtain the torque reading from the transonic 

compressor test rig, which is fed into scanner #1 (LU = 8) , 
channel 36, program 
LU = 8 
ICHAN =36 
K = 1 

TORQUE = SCANR (LU, ICHAN, K) 
or 

TORQUE = SCANR (8, 36, 1) 

In both cases the DVM reading is written into the real varia- 
ble TORQUE. 
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Example B : To obtain the RPM of the Allis-Chalmers (central 



air supply) compressor, program 
LU = 8 
I CHAN =15 
K = 2 

RPMAC = SCANR (LU, ICHAN, K) 
or 

RPMAC = SCAUR (8, 15, 2) 

In both cases the reading of the digital counter is written 
into the real variable RPMAC. 

Example Instrument Code Instrument Read 

A 1 Digital Voltmeter 

B 2 Digital Counter 

SUBROUTINE TIME 

Arguments: INTEGER: IMON, IDAY, I YEAR, IHOUR, IMIN, 

ISEC 

IMON - - - ASCII converted month of the year 

IYEAR - - - ASCII converted last two digits of 

current year 

IDAY - - - ASCII converted day of the month 

IHOUR - - - ASCII converted hour (24-hour clock) 

of the day 

IMIN - - - ASCII converted minute of the hour 

ISEC - - - ASCII converted second of the minute 

IMON, IDAY and IYEAR are obtained from the program control 
array; IHOUR, IMIN and ISEC are obtained from the system 
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clock through an EXEC call? all variables are returned to the 
calling program. 

Example : Suppose the system clock is set correctly and the 

control array CNTRL is defined, i.e., CNTRL was read from 
the disc file and adjusted to the actual conditions; then 
the following code 



603 FORMAT ("Date & Time: "A2"/"A2"/"A2 , 2X, 

*A2 " :"A2) 

CALL TIME ( IMON , IDAY , IYEAR, IHOUR , IMIN , ISEC) 
WRITE ( 6 , 609) IMON, IDAY, IYEAR, IHOUR, IMIN 



produces the following output: 



Date & Time: 09/27/80 21:57 



SUBROUTINE WAIT 

Arguments : INTEGER: TWAIT 

TWAIT - - - Time delay in tens of milliseconds 
Example : To cause a defined time delay of 5,7 sec (= 5700 ms 

570 x 10 ms) , program 
ITWAIT = 570 
CALL WAIT (ITWAIT) 
or 

CALL WAIT (570) 
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7.2. PROGRAM LISTING TXCOU 



PAGE 000 i FTN . 9 : S7 PM SAT., 27 SEP., 1980 



0001 

0002 

0003 

0004 

ooos 
0006 
0 0 07 
0008 
0009 

mi 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 
0021 
0022 

0023 

0024 



0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 
0061 
0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 



FTN4 , L_ 

C 
C 

c 
c 
c 
c 
c 

6 
c 
c 
c 
c 
c 
c 
c 
c 
c 



REAL FUNCTION ACQN ( I VALUE , I ADES , IU ) 



Position scann ivalye 1 VALUE to port IADFS and define ACON 
the DUM output voltage. A t ine‘ dalay of <IUAIT*10) ns occurs 
between port selection and voltage neasurenent. The DVh is 
triggered issuing HP -IP subroutine TRIGR 



Author 



S ate: . , January 

detailed proqrnh 



ober t N . Ge opf ar th 

ption is available 



3t> 1979 
descrir ‘ 



variables are : 

IUALUE . . . Desired S/U . 



in TXCO log . The 



IADES 

IAPR 

ICHAN 

ACQN 

IU 



Desired S/U port *. 

Present S/U port ♦. 

ASCII converted scanner channel. 
Transducer voltaqe as read fron DUM. 
Tine delay factor. 



Positions scannivalve and reads DVM . 
801 FORMAT C'C") 



Utilities. 



901 FORMAT ( / " **** 
* " <*** 



ERROR DETECTED IN REAL FUNCTION ACQN \ " / 
CHECK FOR BAD PARAMETER IN CALL ! 'V 



0025 

0026 
0027 


* 

ISTEP 


* 

= 1 




IVALVE = “ I 3 " IADES 


_ H 


13" 




IU - " 14/ ) 


0028 


IF < 


IUALUE 


.LT. 

.LT. 


1 


.OR. IUALUE , 


GT . 


S 


) 


GO TO 06 


0029 


IF ( 


IADES 


1 


.OR. IADES 


GT. 


48 


) 


GO TO 06 


0030 

0031 

0032 C 


IF ( 


IUALUE 


.EQ. 


2 


.OR. IUALUE . 


EQ. 


3 


) 


ISTEP = 2 



C 

C 

C 

C 



C 

c 

c 

c 

c 



c 

c 

c 

c 

c 



c 

c 

c 

c 

c 



c 

c 

c 

c 

c 



c 

c 



Conpare present port * to desired port*, 



01 IAPR = IPOR T ( IUALUE ) 
IDEL = I ADES- I APR 
IF ( IDEL ) 02,03,04 




02 ICHAN = I CON < IUALUE , 4 ) 
K = 2 
GO TO 05 




03 ICHAN = ICON ( I VALUE , 9) 
K = 3 
GO TO 05 




04 ICHAN = ICON ( I VALUE , -1 ) 
K = 1 




05 CALL CNTL ( ICHAN . IDEL . ISTEP , K ) 
IF < K .NE. 3 ) GO TO 01 
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PAGE 0002 ACQN 9 : S7 PH SAT. , 27 SEP., 1980 



0077 

0078 

0079 

0080 
0081 
0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 



C 

C 

c 



Pause and read transducer output voltage. 



C 

C 

C 

c 

c 



CALL WAIT (IU) 

CALL TRIGR (10) 

READ (10. *> DUM 

CALL TRIGR (10) 

READ (10, X) ACQN 
WRITE ( 8, 801) 
RETURN 



Error encountered; output error message j return, 



06 WRITE ( 6, 901) I VALUE , I ADES, I U 
RETURN 
END 



FTN4 COHPILER: HP92Q60-16Q92 REV . 1926 (790430) 

X* NO WARNINGS XX NO ERRORS ** PROGRAM = 00237 



COMMON = 00000 
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PAGE 0003 FTN , 



9:57 PH SAT , , 27 SEP . , 1980 



0096 

0097 

0098 


C 


0099 


c 


0100 


c 


0101 


c 


0102 


C 


0103 


c 


0104 


C 


010S 


c 


0106 


c 


0107 


c 


0108 


c 


0109 


c 


0110 


c 


0111 


c 


0112 


c 


0113 


c 


0114 


c 


0115 


c 


0116 


c 


0117 


c 


0118 

0119 


c 


0120 


100 


0121 

0122 

0123 

0124 

0 125 


10 


0126 

0127 


c 


0128 


200 


0129 

0130 

0131 

0132 

0133 


c 


0134 


300 


0 135 

0136 


c 


0137 


60 


0138 


62 


0139 





SUBROUTINE CNTL (ICHAN , I DEL , I STEP ,K) 

Closes scanner channel. • 

THIS PROGRAM CLOSES SCANNER CHANNEL ,, ICHAN U 
u I DEL ” TIMES IN STEPS OF 11 1 STEP " BASED UPON 
PROGRAM OPTIONS SPECIFIED BY "K", ( ICHAN MUST 

BE AN ASCI I— CONUER TED INTEGER . ) 



K 




FUNCTION 






1 


CLOSE FOR 10-MS 
1S0-MS. REPEAT 


WAIT 

"IDEL 


FOR 

" TIMES. 


2 


CLOSE 
4— SEC 


FOR 10-MS 
RETURN, 


WAIT 


FOR 


3 


CLOSE 


RETURN. 







AUTHOR: R.N. GEOPFARTH , LT USN 
DATE: JAN 79 

GO TQ< 10 0 , 20 0 , 300 > ,K 

DO 10 1=1 > IDEL , ISTEP 
URITE(8,60 )ICHAN 
CALL WAIT ( 1 ) 

UR ITE (8.62) 

CALL UAIT(15> 

CONTINUE 

RETURN 

WRITE(8>60) ICHAN 
CALL WAIT<1) 

UR ITE ( 8 >62 ) 

CALL UAI T (400) 

RETURN 

URITE(8,60)ICHAN 

RETURN 

FORMAT ( A2 ) 

FORMAT ( "C") 

END 



FTN4 COMPILER: HP92060-16092 REU. 1926 (790430) 

** NO WARNINGS ** NO ERRORS ** PROGRAM = 00088 COMMON = 00000 
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PAGE 0004 FTN . 



9*. 57 Ph SAT., 27 SEP., 1980 






0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 
0161 
0162 

0163 

0164 

0165 

0166 

0167 

0168 



C 

C 

C 

c 

c 

c 

c 

c 

c 

•c 



SUBROUTINE CURVE < N > X , Y , SLOPE , SECON ) 



01 



Compute linear curve fit using least square root method. 
Author*. Alan G. McGuire 

Date: February 21, 1980 

A detailed program description is available in TXCO log. The 
comment statements and statement numbers match to the ones 
used in the flow chart. 



Computes linear curve fit 
REAL X ( N ) , Y(N) 

SUMP0 = 0. 

SIJME0 = 0. 

SUMVP = 0 . 

SUME2 = 0. 

DO 1 1 = 1, Nd 
SUME0 = SUME0 + 

SUMP0 = SUMP0 + 

SU MVP = SUMVP + 

SUME2 = SUME2 + 

RN = FLOAT ( N ) 

SNUM = < RN*SUMVP ) - 
SDEN = <RN*SUhE2> - 
SLOPE « SNUM/SDEN 
SECON = ( SUMP 0- ( SLOPE*SUME0 ) ) /RN 
RETURN 
END 



X(I) 

Y(I) 

< Xd ) *Y ( I ) ) 
Xd)*Xd) 



< SUME0*SUMP 0 ) 
<SUME0*SUME0) 



u 



FTN4 COMPILER: HP92060-16092 REV. 1926 (790430) 

** NO WARNINGS ** NO ERRORS ** PROGRAM = 00176 COMMON = 00000 



c 

c 



c 
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PAGE 0 005 FTN . 



9:57 PM SAT. , 27 SEP. , 1980 



0169 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 

0178 

0179 

0180 
0181 
0182 

0183 

0184 

0185 

0186 

0187 

0188 

0189 

0190 

0191 

0192 

0193 

0194 



INTEGER FUNCTION ICON (I,N) 



C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

Convertes integer to ASCI I-s tr ing , 
100 FORMAT (12) 

IC = I+N 

IF ( IC . LT . 10 ) GO TO 01 

CALL CODE 

WRITE ( ICON, 100) IC 
RETURN 

01 ICON = IC+30060B 
RETURN 
END 



Converts integer numbers into ASCI strinq. 

Author: Robert N. Geonfnrth 

Date: January 31, 1979 

Because of the simplicity of the program the program 
description is included in this box. 

I> N ... integer numbers to be added. 

IC ... integer number to be converted into ASCII. 

ICON ... 2 - character ASCII string to be returned 



FTN4 COMPILER: HP92060-16092 REU. 1926 (790430) 

** NO WARNINGS ** NO ERRORS ** PROGRAM = 00036 COMMON = 00000 
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PAGE 0006 FTN . 
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0 195 

0196 

0197 

0198 

0199 

0200 
0201 
0202 

0203 

0204 

0205 

0206 

0207 

0208 

0209 

0210 
0211 
0212 

0213 

0214 

0215 

0216 

0217 

0218 

0219 

0220 
0221 



C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



INTEGER FUNCTION IPORT (IVALVE) 

Interrogates scann i valve , " 

THIS PROGRAM INTERROGATES SCANT VALUE 
11 1 VALVE “ AND CONVERTS PORT ADDRESS 
INTO A DECIMAL VALUE. 

VARIABLES: 

IVALVE = DESIRED S/V 
IP = S/V INPUT BUFFER 

MSD = MOST SIGNIF. DIGIT 
LSD = LEAST SIGNIF, DIGIT 
IPORT = DECIMAL S/V ADDRESS 

AUTHOR: R , N . GEOPFARTH , LT USN 
DATE: DtC 78 ' 

LU = 14 + 21 0 0B 

CALL EXEC ( 2 , LU , I VALVE#256 , -1 ) 

CALL EXEC (i,LU>IP,-i) 

IP=IP/256 

MSD = I AND (IP/16.7B) 

LSD = IAND(IP,17B) 

IPORT =* 10*MSD + LSD 

RETURN 

END 



FTN4 COMPILER: HP92Q6Q-16092 REV. 1926 (790430) 

** NO WARNINGS ** NO ERRORS ** PROGRAM = 00064 COMMON =* 00000 



\ 
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0222 

0223 

0224 

0225 

0226 

0227 

0228 

0229 

0230 

0231 

0232 

0233 

0234 

0235 

0236 

0237 

0238 

0239 

0240 

0241 

0242 

0243 

0244 

0245 

0246 

0247 

0248 

0249 

0250 

0251 

0252 

0253 

0254 

0255 

0256 
0 257 

0258 

0259 

0260 
0261 

' 0262 

0263 

0264 

0265 

0266 

0267 

0268 
0269 

^ 0270 
C 0271 
0 272 

0273 

0274 

0275 

0276 

0277 
0 278 

0279 

0280 
0281 
0282 

0283 

0284 

0285 

0286 

0287 

0288 

0289 

0290 

0291 

0292 

0293 

0294 
( 0295 
^ 0296 

0297 



c 



c 

c 

c 

c 

c 



SUBROUTINE PICTR ( LO , NUMBR , NEWPG , ICL , ISI GN , AMPL ) 




*> Use CRT to display the acquired data. " 

COMMON / CTBUF / IBUF 
REAL CLR < 64 ) 

INTEGER IBUF ( 1 664 ) 

INTEGER NOLF > NOCR ( 2 ) , I CLR ( 3 ) .PLOT ( 8 ) 

INTEGER BLACK (2) .GREY (2) ,WHITE(2) ,BG(2) ,LN<2) , TEXT ( 20 ) , H JF ( 3 ) 
DATA NOLF /0G6S$7B/ 

DATA NOCR / 0 0 0 033B , 040433B/ 

DATA I CLR /015S24B, 015515B, 0065378/ 

DATA BLACK /0 15446B , 0621 0 0 B/ 

DATA WHITE /0 1 S446B , 0621 Q2B/ 

DATA GREY / 0 15446B , 0621 12B/ 

DATA H JF /01S5i0B,0155i2B, 015506B/ 

DATA I CLEAR /2H / 



1801 

1803 

1805 

1806 
1807 
1809 
1817 
1819 



C 

C 

c 

c 

r 



C 

C 

c 

c 

c 



r a r m a r vs p :i: a 

FORMAT (2A2 , 79X , 3A2 > 

ft 



T R V> V A R T 



FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 



< A2"a"I3 ft r •• 13 "CFig ur* H 13 " : "20 A2) 
(2A2,8X,2A2 >6SX.2A2,6X,3A2) 

C A2 ,, a“I3"r M t3 M C fc F6 . i) 

( 2A2.8X ,2A2 . IX ,4 ( 2A2 , 15X , 2A2 , 1 X ) , 2 A2 , 6X ) 

(" -ta.S 9 4Fl6.S) 

( 8A2 ) 

(A2 ,, a ,, I3’ # r " 13 M C M A1 , 2A2 ) 



R a R M A T* <:> P X C T R VS X O P 
IF ( IFRST .EQ. 1 ) GO TO 21 
IFRST = 1 
NEWPG = 1 



21 


IF ( 


NEWPG .EQ. 


1 


) 


ICL 


= 0 




IF ( 


LO 


.EQ. 1 


) 


GO 


TO 


01 




IF ( 


LO 


.EQ. 18 


) 


GO 


TO 


02 


01 


LN( i ) 




GREY ( l ) 












L.N (2) 


3S 


GREY ( 2) 












GO TO 


i 03 












02 


LN ( 1 ) 


St 


BLACK ( 1 ) 












LN ( 2 ) 


= 


BLACK (2) 










03 


BG(i) 


n 


WHITE ( 1 ) 












BG ( 2 ) 


= 


WHI TE ( 2 ) 












IF ( 


ICL 


. NE . 1 


) 


GO 


TO 


25 




! ci 


ear 


dots in 


frame 


u/o 


erasing 


11 


IROW 


= 1 


1 











ICOL = 7 
CALL CODE 

WRITE (PLOT , 1819 ) BLACK < i ), IROW , ICOL , I CLEAR , NOCR 
WRITE <L0,i817> PLOT 
DO 13 1=1 2 64 
DO 12 Ji=l ,21 
J = Ji-ii 
X = J 

12 IF ( CLR ( I ) .GE. X-Q.S .AND. CLR ( I ) . LT . X + Q.S ) NUPDN 

IROW = 11-NUPDN 

ICOL = 7+1 
CALL CODE 

WRITE (PLOT , 1819) BLACK ( 1) , IROW, ICOL , I CLEAR , NOCR 

13 WRITE ( LO , 1817) PLOT 



= J 




25 J=0 

DO 04 1=1,256,4 
J=J+ 1 

04 CLR(J) = I BUF (I)/10QQQ . 

XMIN = CLR ( 1 ) 

XMAX = CLR ( 1 ) 

IF ( ICL .EQ. 1 ) GO TO 43 
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0298 




DO 


41 


. 1=1,64 












0299 




IF 


( 


CLR ( I ) 


.GT. 


XMAX ) 


XMAX 


= CLR ( I ) 






0300 


41 


IF 


< 


CLR ( I ) 


. LT. 


XMIN ) 


XMIN 


= CLR ( I ) 






0301 




AMPL 


= XMAX 














0302 




IF 


( 


ABS ( XM 


IN) 


GT. XMAX 


) AMPL = -XMIN 




0303 




IF 


( 


AMPL 


. LE . 


0.001 


.AND. 


AMPL 


.GT. 


0.000 


0304 




IF 


( 


AMPL 


.LE. 


0 . 002 


.AND. 


AMPL 


.GT . 


0.001 


0305 




IF 


( 


AMPL 


.LE. 


0.010 


. AND . 


AMPL 


.GT . 


0 .005 


0306 




IF 


( 


AMPL 


.LE. 


0 . 020 


. AND . 


AMPL 


.GT. 


0.010 


0307 




IF 


( 


AMPL 


.LE. 


0 . 050 


.AND. 


AMPL 


.GT. 


0 . 020 


0308 




IF 


( 


AMPL 


.LE. 


0. 100 


.AND. 


AMPL 


.GT. 


0 . 050 


0309 




IF 


( 


AMPL 


.LE. 


0.200 


.AND. 


AMPL 


.GT. 


0.100 


0310 




IF 


( 


AMPL 


.LE. 


0 . 500 


. AND. 


AMPL 


• GT. 


0.20 0 


0311 




IF 


( 


AMPL 


.LE. 


1 .000 


.AND . 


AMPL 


.GT. 


0 .500 


0312 




IF 


( 


AMPL 


.LE. 


2. 000 


.AND. 


AMPL 


.GT. 


1.000 


0313 




IF 


( 


AMPL 


.LE. 


5.000 


.AND. 


AMPL 


.GT. 


2 . 000 


0314 




IF 


( 


AMPL 


.LE. 


10 . 000 


.AND. 


AMPL 


.GT. 


S . 0 0 0 



0315 

0316 

0317 

0318 

0319 

0320 

0321 

0322 

0323 

0324 

0325 

0326 

0327 

0328 

0329 

0330 

0331 

0332 

0333 

0334 

0335 

0336 

0337 

0338 

0339 

0340 

0341 

0342 

0343 

0344 

0345 

0346 

0347 

0348 

0349 

0350 

0351 

0352 

0353 

0354 

0355 

0356 

0357 

0358 

0359 

0360 

0361 

0362 

0363 

0364 

0365 

0366 

0367 

0368 

0369 

0370 

0371 

0372 

0373 



C 

C 

c 

c 

c 



c 

c 

c 

c 

c 



43 CONTINUE 

DO 42 1=1,64 
42 CLR(I) = CLR(I)*( 
IF < NEWPG .NE. 



) AMP L= 
) AMPL= 
) AMPL= 
) AMPL = 
) AMPL= 
) AMPL= 
) AMPL- 
) AhPL= 
) AMPL = 
) AMPL= 
) AMPL= 
) AMPL= 



0.00 
0 , 00 
0.01 
0 . 02 
0 . 050 
0.100 
0.200 
0.500 
1.000 
2.000 
5. 000 
10. 000 



c 

c 

c 

c 

c 



10 . 0/AMPL) 

1 ) GO TO 31 




05 WRITE < LO , 1817 ) HJF < 1 ) , HJF < 2) , NOLF 
WRITE ( LO ,1801) BG, BLACK 
WRITE < LO , 1805) BG , LN , BG , BLACK 

DO 06 1=1,9 

06 WRITE ( LO , 1807 ) BG , LN , BG , LN * BG , LN , BG , LN , BG , LN , BG 
WRITE (L0,1805> BG,LN BG, BL^CK 

DO 07 1=1,9 

07 WRITE ( LO , 1807 ) BG , LN , BG , LN , BG , LN , BG , LN , BG , LN , BG 
WRITE < LO , 1805) BG . LN , BG , BLACK 

WRITE < LO , 180 1) BG;BLACK 
WRITE < LO , 1801) BG, BLACK, NOLF 




31 ZERO = 0, 

AMPLh = -AM°L 
IROW = 0 
ICOL = 8 

WRITE < LO ,1803) BLACK < 1 ), IROW , ICOL , NUMBR , TEXT 
IROW =1 
ICOL = 2 

WRITE C LO ,180 6) BLACK < 1 ), IROW , ICOL , AMP L 
IROW = li 

WRITE < LO , 1806 ) BLACK < 1 ), IROW , ICUL , ZERO 
IROW = 2i 

WRITE < LO , 1806 ) BLACK < 1 ), IROW , ICOL , AMPLM 




08 CONTINUE 
DO 10 1=1,64 
DO 09 Ji=l , 21 
J = Ji-ii 

X = J 

09 IF ( CLR < I ) .GE. 
IROW = ii-NUPDN 
ICOL = 7+1 
CALL CODE 



X-0 .5 



. AND. 



CLR < I ) .LT. X + 0.S ) NUPDN = J 



WRITE (PLOT, 1819) BLACK < 1 ), IROW , ICOL , I SI GN , NOCR 
10 WRITE <L0,18i7> PLOT 
IROW = 11 
ICOL = 7 
CALL CODE 

WRITE (PLOT, 1819) BLACK ( 1 ), IROW , ICOL , I CLEAR , NOCR 

WRITE ( LO , 1817) PLOT 

RETURN 
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0375 

0376 

0377 

0378 

0379 

0380 

0381 

0382 

0383 

0384 

0385 

0386 

0387 

0388 

0389 

0390 

0391 

0392 

0393 

0394 

0395 

0396 

0397 

0398 

0399 

0400 

0401 

0402 

0403 

0404 

0405 

0406 

0407 

0408 

0409 

0410 

0411 

0412 

0413 

0414 

0415 

0416 

0417 

0418 

0419 

0420 

0421 

0422 

0423 

0424 

0425 

0426 
0 427 

0428 

0429 

0430 

0431 

0432 

0433 

0434 

0435 

0436 

0437 

0438 

0439 

0440 

0441 

0442 

0443 

0444 

0445 

0446 

0447 

0448 

0449 

0450 



C 

c 

c 

c 

c 

c 

c 

c 

c 

c 



c 

c 



SUBROUTINE REURF < IREWR , IWHATA ) 



This subroutine reads (IREUR - -1) or writes (IREWR - +1.) of 
of a array specified by IWHATA. 

Author: Hans M. Zebner 

Date : Febraury 08, 19B0 

Detailed proqran description is available in TXCO loa; The 
Consent statenents natch to the flow chart explanations. 



Data transfer disc array . 

COMMON / CIBUF / IBUF 
COMMON / CONTR / CNTRL 
COMMON / CA /A 
COMMON / FMP / I DCB , IFILE , I SIZE 
REAL A ( 256 ) 

INTEGER IBUF (1664) 

INTEGER I DCB (144) , I FILE ( 3 ) ,1 SIZE ( 2 > 
INTEGER NOLF.NOCR (2) , ICLR (3) 

DATA NOLP /006537B/ 

DATA NOCR /() 0 0 033B , 040433B/ 

DATA ICLR /015524B. 0155158,0 06537B/ 

r* a « m ^ r <\> re ir:. uj r i~ r a r * r 



101 FORMAT ( " REWRF 
* : 0 0 : 26 " ) 

102 FORMAT ( “ REWRF 

103 FORMAT ( " REWRF 
# ) 

104 FORMAT ( M REWRF 
*) 

105 FORMAT ( M REURF 

106 FORMAT ( " REWRF 

107 FORMAT ( “ REWRF 



ARRAY I BUF ( 1 664 ) 



DISC FILE IBUFF 



DISC FILE I BUFF : 0 0 : 26 ARRAY I BUF ( 1664 ) ” ) 
ARRAY CNTRL ( 256 ) DISC FILE CNTRLF : 0 0 : 26 * 

DISC FILE CNTRLF : 0 0 : 26 ARRAY CNTRL(256)“ 

ARRAY A (256 ) DISC FILE AF:00:26") 

DISC FILE AF : 0 0 : 26 ARRAY A(256)") 

ERROR RETURN (IWHATA ="I3")") 



108 FORMAT ( " I BUFF " ) 

109 FORMAT ( “CNTRLF M ) 

110 FORMAT ("AF " > 

121 FORMAT (” CALL OPEN ( IDCB , IERR , "3A2 " , '• 12 * , ‘*12 " , " 12 M , " 14 • 
*) failed; STOP ‘'21 X *' " ) 

122 FORMAT ( ” CALL LOCF (IDCB , IERR , IDUM , IDUM , IDUM , ISIZE ( 1 ) , I 
*DUM,IDUM,ISIZE(2) ) failed; STOP*) 

123 FORMAT (* CALL RWNDF (IDCB, IERR) failed STOP "42X " " ) 

124 FORMAT ( M CALL READF ( I DCB , 1 ERR , I BUF , " 13 u , 11 12 " , *' 12 11 ) 

#led* STOP " P7X '* '* ) 

125 FORMAT ( M CALL WRITF ( IDCB , IER R , IBUF , *' 13 " , - 12 " , " 1 2 * ) 

*led; STOP M 26X M " ) 

126 FORMAT ( " CALL READF ( I DCB , IERR , CNTRL , " 13 " , " 1 2" , M 12 M ) 

iimnw ii ii v 7 ' ' 7 7 



*iled: STOP M 27X""> 

127 FORMAT ( " CALL WRITF 



f ai 
f ai 
fa 
fa 



< IDCB , IERR , CNTRL, H I3" , " 1 2" , 11 12 M ) 

*iled> STOP "26X " " ) 

128 FORMAT (" CALL READF ( IDCB , IERR , A , " 13 " , '* 12 " , 12" ) failed 

STOP H 27X " " ) 

129 Format ( " CALL WRITF (IDCB,IERR,A,“I3 , V'I2 h ,"I 2") failed 
• STOP " 26X " " ) 

130 Format r * call close (idcb,ierr,o) failed; stop^x"” 



*) 



LI = LQGLU(ISESSN) 
ISECU = 0 
ICR = 26 

IF ( IWHATA .LT. 1 
GO TO (10,20) IWHATA 



.OR . 



IWHATA , GT . 2 ) GO TO 40 



C 

C 

C 

C 

C 



Integer array IBUF being written bacK and forth 



10 CALL CODE 

WRITE (IFILE, 108) 



WKlit Ur ILt ,11)0) 

CALL OPEN (IDCB, IERR .IFILE, IOPTN, ISECU, ICR, IDCBS) 

IF ( IERR .GE. *0 > 66 TO ii ' ’ ' 

121) IFILE, IOPTN, ISECU, ICR , IDCBS 

( IDCB, IERR, IDUM, IDUM, IDUM, ISIZE(l) , IDUM , IDUM , ISIZE ( 2 ) ) 



WRITE (LI, 
STOP 1 

11 CALL LOCF 
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1980 



0451 

0452 

0453 

0454 

0455 

0456 

0457 

0458 

0459 

0460 

0461 
0 462 

0463 

0464 

0465 

0466 

0467 

0468 

0469 

0470 

0471 

0472 

0473 

0474 

0475 

0476 

0477 

0478 

0479 

0480 

0481 

0482 

0483 

0484 

0485 

0486 

0487 

0488 

0489 

0490 

0491 

0492 

0493 

0494 

0495 

0496 

0497 
04V8 

0499 

0500 

0501 

0502 

0503 

0504 

0505 

0506 

0507 

0508 

0509 

0510 

0511 

0512 

0513 

0514 

0515 

0516 

0517 

0518 

0519 

0520 

0521 

0522 

0523 

0524 

0525 

0526 



IF < IERR 
WRITE (LI, 
STOP 2 

12 CALL RUNDF 
IF ( IERR 
WRITE (LI, 
STOP 3 

13 ISIZE(l) = 
IL 

IF ( IREWR 
IF < IREWR 

14 CALL READF 
IF ( IERR 
IF ( IERR 
WRITE (LI, 
STOP 4 

15 CALL WRITF 
IF ( IERR 
IF ( IERR 
WRITE (LI, 
STOP 5 

16 CALL CLOSE 
IF < IERR 
WRITE (LI, 
STOP 6 

17 RETURN 



.GE. 

122 ) 



0 ) GO TO 12 



( IDCB, IERR) 

.GE. 0 ) GO TO 13 

123) 

I SIZE ( 1 ) /2 
ISIZE( 1 )*ISIZE(2) 

.EQ. -1 ) GO TO 14 
. EQ. + J ) GO TO 15 
( IDCB, IERR , IBUF, IL) 

.GE. 0 ) tfjR ITE (LI , 102) 
.GE. 0 ) GO TO 16 

124) IL , LEN , NUM 

(IDCB, IERR . IBUF , ID 
.GE. 0 ) QRITE (LI, 101) 
.GE. 0 ) GO TO 16 

125) IL , LFN , NUM 

( IDCB,IERR,0) 

.GE. 0 ) GO TO 17 
130) 



C 

C 

C 

C 

C 




20 CALL CODE 
WRITE ( IFIL 
CALL OPEN 
IF ( IERR 
WRITE (LI, 
STOP 11 

21 CALL LOCF 
IF ( IERR 
WRITE (LI, 
STOP 12 

22 CALL RUNDF 
IF ( IERR 
WRITE (LI, 
STOP 13 

23 ISIZE(i) = 
IL 

IF ( IREWR 
IF ( IREWR 

24 CALL READF 
IF ( IERR 

4 IF ( IERR 
WRITE (LI, 
STOP 14 

25 CALL WRITF 
IF ( IERR 
IF < IERR 
WRITE (LI, 
STOP 15 

26 CALL CLOSE 
IF ( IERR 
WRITE (LI, 
STOP 16 

27 RETURN 



E i 1 09 ) 

( tDCB , IERR .IFILE » I OP TN , ISECIJ > ICR , IDCBS ) 

.GE. 0 ) 60 TO Si 

121 ) IFILE, IOPTN , ISECU , ICR , IDCBS 

( IDCB, IERR .IDUM, IDUM, IDUM, I SIZE ( 1) , IDUM , IDUM , I SIZE ( 2 ) ) 
. GE . 0 ) GO TO 22 

122) 

(IDCB, IERR) 

. GE . 0 ) GO TO 23 

123) 

ISIZE ( 1 ) /2 
ISIZE(1 )*ISIZE<2> 

.EQ. -1 ) GO TO 24 
.EQ. +1. ) GO TO 2b 
(IDCB, IERR. CNTRL,IL) 

.GE. 0 ) WRITE (LI, 104) 

.GE. 0 ) GO TO 26 

126) IL, LEN, NUM 

( IDCB , IERR . CNTRL, IL ) 

.GE. 0 ) iiRlTE (LI, 103) 

.GE. 0 ) GO TO 26 

127) IL, LEN, NUM 

< I DCB , TERR , 0 ) 

.GE. 0 ) GO TO 27 
130) 



C 

C 

C 

C 

C 

C 




30 CALL CODE 
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0527 


c 




WRITE ( IFILE ,110) 


0528 


c 




CALL OPEN 


( IDCB, IERR , IFILE, IOPTN.ISECU, ICR, IDCBS) 


052? 


c 




IF ( IERR 


, G£ . 0 ) uO TO 31 


0530 


c 




WRITE (LI, 


121) IFILE, IOPTN,ISECU, ICR, IDCBS 


0531 


c 




STOP 21 




0532 


c 


31 


CALL LOCF 


( IDCB , IERR , IDUM , IDUM , IDUM , ISIZE ( 1 ) , IDUM, IDUM , ISIZE (2) ) 


0533 


c 




IF ( IERR 


.GE. 0 ) 60 TO 32 


0534 


c 




WRITE (LI, 


122 ) 


0535 


c 




STOP 22 




0536 


c 


32 


CALL RWNDF 


( IDCB, IERR) 


0537 


c 




IF ( IERR 


, GE . 0 ) GO TO 33 


0538 


c 




WRITE (LI, 


123) 


0539 


c 




STOP 23 




0540 


c 


33 


ISIZE(l) = 


ISIZEC 1 )/2 


0541 


c 




IL 


ISIZE(i>*ISIZE<2) 


0542 


c 




IF ( IREWR 


.EQ. -1 ) GO TO 34 


0543 


c 




IF ( IREWR 


,EQ. +1 ) GO TO 35 


0544 


c 


34 


CALL READF 


( IDCB , IERR , A , IL) 


0545 


c 




IF ( IERR 


.GE. 0 ) WRITE (LI, 106) 


0546 


c 




IF ( IERR 


.GE. 0 ) GO TO 36 


0547 


c 




WRITE (LI, 


128) IL , LEN, NUM 


0548 


c 




STOP 24 




0549 


c 


35 


CALL WRITF 


(IDCB, IERR ,A,IL) 


0550 


c 




IF ( IERR 


.GE. 0 ) WRITE (LI, 105) 


0551 


c 




IF ( IERR 


.GE. 0 ) GO TO 36 


0552 


c 




WRITE (LI, 


129) IL, LEN, NUM 


0553 


c 




STOP 25 




0554 


c 


36 


CALL CLOSE 


( IDCB, IERR .0) 


0555 


c 




IF ( IERR 


.GE. ; 0 ) 60 TO 37 


0556 


c 




WRITE (LI, 


130) 


0557 


c 




STOP 26 




0558 


c 


37 


RETURN 




0559 










0560 










0561 










0562 


c 








0563 


c 








0564 


c 




. Error; 


IWHATA is not defined. 


0565 


c 








0566 


c 








0567 




40 


WRI+E (LI, 


107) IWHAtA 


0568 






I WHAT A = - 


IWHATA 


0569 






RETURN 




0570 






END 





FTN4 COMPILER: HP92060-16092 REV. 1926 (790430) 

** NO UARNINGS ** NO ERRORS ** PROGRAM = 01148 COMMON = 00000 
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0571 

0572 

0573 

0574 

0575 

0576 

0577 

0578 

0579 

0580 

0581 

0582 

0583 

0584 

0585 

0586 

0587 

0588 

0589 

0590 

0591 

0592 

0593 

0594 

0595 

0596 

0597 

0598 

0599 

0600 
0601 
0602 
' (J6'g T 
Q&Q4 



SUBROUTINE RP ACE < ADCHNL , P AMO , P A IR , ST ART, I NCR ,STOP , REP , AURGE , IPR IN 
*T,LQ> ' * ; 



TO7 ft 
(T5~0F" 



C 


. Interface 








C 


program to triqqer 


HP A/D converted through pacer. 




c 


Author : 


Hans M. Zebner 




c 


Date : 


March 20, 1980 






c 

c 

c 


. Detailed 


program description 


is available in TXCO log. 





*, Triggers A/D through Pacer. * 

COMMON / CIBUF / BUFR 
COMMON / CONTR / CNTRL 

INTEGER BUFR ( 1664 ) ,CNT«RL ( 256 ) 

INTEGER ADCHNL , PAMO,P AIR, START, INCR .STOP , REP ,NOLF,ICLR (3) , WHERE , WH 
*EREP # ; ? 

DATA NOLF /006537B/ 

DATA ICLR /0iS524B,GtS5i5B,006S37B/ 

DATA MASK / 17770 0B/ 

DATA FSULTG /. 1E01/ 

l :r a R M A T* 53 R l :> c: 1:*T 5:5 *T* A R *T* 

101 FORMAT (/ 9X" ENTERED SUBROUTINE RP ACE ( " 12 " , 11 1 1 ", " 12" , " 16 " , “ 12 “ , 11 
% 1 6 M " 1 2 M A U R G E " 1 1 *' " 1 3 ** ) " ) 

102 FOR MAT "( i OX " AYR GE "3X ” I COUNT ”3X M IBLAD ’* 1 X “ R EP "SX M I BUF " 4X " IBUF "SX "RBU 
*F '* 1 X M BUER < ICOUNT) ”> 

103 FORMAT (“Pointer at ,, 63X ,,,, A2) 

104 FORMAT ((" " A2 ) ) 

105 FORMAT ( 2 0 X7T47TX ,K7,2X»K2*1X 1 K8.I8,1X,F8.6,1X,I12 1 A2) 

TiT n" FOR M A T ( IX. t f4 , rrSXVT T; T/ 1X7, T r\ t XTlTRrn TnT^E T 5’ V VkTTT2 ) 

i 07 "FORMAT < 7X' ,_ COMPLETED SUBR Ol I ft NF R P AC~E ( ,, I2‘ l V"li " , “IS” , " 16" , " 12“ > 

M" IS " : ,|,, L2 P " , ’T S * * * 

TlTTrT'OITffAT T* PoTTe~ 7r FSlt Tr 



IT5W 

0609 

0610 
0611 
0612 

0613 

0614 

0615 

0616 

0617 

0618 

0619 

0620 
0621 
0622 

0623 

0624 

0625 

0626 

0627 

0628 

0629 

0630 

0631 

0632 

0633 

0634 

0635 

0636 

0637 

0638 

0639 

0640 

0641 

0642 

0643 

0644 

0645 

0646 



149 FORMAT ( (3A2) ) 
R- O R M A T 53 



R P A c: IE 53 T a P> 



c 

c 

c 

c 

c 

c 



. Check the input variables. 


If one is 


out of range, it is 




. set to the default value. 


No warning 


is d isp lay ed . 





LI - CNTRL ( 19 ) 

IF ( IPRINT .EQ. 0 ) GO TO 01 
LINES « 0 

WRITE (LI , 101) ADCHNL, P AMO, PAIR , START , I NCR , STOP ,REP , IPRINT,LO 
WRITE (LI, 102) 



IF 


( 


LO 


.EQ. 


LI ) 


GO TO 01 










WRITE 


(LO, 


101) ADCHNL > 


PAMO, PAIR , START, 


INCR , STOP , 


REP 


, IPR INT 


,L 


WRITE 


: (lo 


102) 














01 IF 


( 


ADCHNL 


.GT. 


15 


.OR. ADCHNL 


.LT. 0 


) 


ADCHNL 


= 


IF 


( 


PAMO 


. GT. 


2 


.OR. PAMO 


.LT. 0 


) 


PAMO 


S3 


IF 


( 


PAIR 


.GT. 


9 


.OR. PAIR 


.LT. 2 


) 


PAIR 


=3 


IF 


( 


START 


.LT. 


0 






) 


START 


S3 


IF 


( 


INCR 


.LT. 


1 






) 


INCR 


33 


IF 


( 


REP 


.LT. 


1 






) 


REP 


33 



0 

1 

i 

0 

1 

1 



c 

c 

c 

c 

c 



c 

c 

c 

c 



Check input variables for logical errors. 



IF ( STOP 
IF ( INCR 



.LE. START ) STOP = STAR T+ 1 

.GT, STOP-START ) INCR « STOP-START 



Get adjusted START and STOP, depending on selected PAMO. 
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0647 

0648 

0649 

0650 

0651 

0652 

0653 

0654 

0655 

0656 

0657 

0658 

0659 

0660 
0661 
0662 

0663 

0664 

0665 

0666 

0667 

0668 

0669 

0670 

0671 

0672 

0673 

0674 

0675 

0676 

0677 

0678 

0679 

0680 
0681 
0682 

0683 

0684 

0685 

0686 
0607 
0688 

0689 

0690 

0691 

0692 

0693 

0694 

0695 

0696 

0697 

0698 

0699 

0700 

0701 

0702 

0703 

0704 

0705 

0706 

0707 

0708 

0709 

0710 

0711 

0712 

0713 

0714 

0715 

0716 

0717 

0718 

0719 

0720 

0721 

0722 



C 



C 

C 

C 

C 

C 



C 

C 

C 

C 

C 



C 

C 

C 

C 

c 



GO* TO (03,02) PAMO 

02 START = (START + 2S6*PAIR) + 100000B 
STOP - (STOP + 256*PAIR) + 100000B 

03 IF ( IPRINT .NE. 0 ) GO TO 05 

icoun r = o 

DO 04 I=START,STQP , I NCR 

04 ICOUNT = ICOUNT + 1 
IDIFF = ICOUNT 
ICORR = i 

IF ( IDIFF .GT. 64 ) GO TO 05 
ICORR = (64/IDIFF) 

05 ICOUNT = 0 



06 

07 



Start acquisition loop. 



AVRGE = 0 
WHEREP = i 

IF ( IPRINT .EQ. 0 ) WRITE (LI 

DO 10 I=START,STOP, I NCR 

ICOUNT = ICOUNT + 1 

WHERE = ( ICQUNTK64 ) /IDIFF 

IF ( WHERE , GT . WHEREP .AND. 

GO TO 07 

WHEREP = WHERE 

WRITE (LI, 104) (NOLF,K=l , ICORR) 
CONTINUE 



103) NOLF 

IPRINT .EQ. 0 ) GO TO 06 



Repeat A/D conversion at selected point REP tiwes. 



RBUF = 0 

BUFR ( I COUNT ) = 0 
DO 08 J=1 , REP , 1 
CALL EXEC (3,19) 

CALL EXEC (1,19, TRPM, 1,1) 

CALL EXEC ( 1 >20 ,IBIJF . 1 , ADCHNL , 0 ) 

I BUF = IAND(IBIJF,MASK) 

RBUF = FLOAT ( I BUF ) Z32768 , + RBUF 

IF ( IPRINT .EQ. 0 ) GO TO 08 

WRITE (LI, 105) ICOUNT , I , T > I BUF , I BUF , RBUF , BUFR ( ICOUNT ) , NOLF 
IF ( LO .EQ. LI .OR. LO . EQ. 6 ) GO TO 08 

WRITE (LO, 105) ICOUNT, I, J,IBUF,IBUF, RBUF, BUFR ( I COUNT ) , NOLF 
08 CONTINUE 

BUFR ( ICOUNT) = ( ( RBUFKFSULTG ) /REP ) *1 0 0 0 0 



AURGE = AURGE + BUFR (ICOUNT) 

IF ( IPRINT .EQ. 0 ) GO TO 10 

WRITE (LI , 106) AURGE , ICOUNT , I , REP , I BUF , I BUF ,RBUF , BUFR ( ICOUNT ) 
LINES = LINES+1 >>>>>> 

IF ( LINES .LT. 20 ) GO TO 09 
WRITE (LI, 149) (ICLR,K=i, LINES) 

LINES = 0 

09 IF ( LO .EQ. LI ) GO TO 10 

WRITE (LO, 106) AURGE, ICOUNT, I , REP , I BUF , IBUF , RBUF , §UFR ( ICOUNT ) 

10 CONTINUE 



Stop data acquisition loop. 



AVRGE = ( AVRGE/ICOUNT ) /100 0 0 
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0723 


IF ( IPRINT 


.EQ 


0724 


LINES = L I NES+ 1 


0725 


WRITE (LI, 


149) 


0726 


WRITE (LI, 


107) 


0727 


*LO 




0728 


IF ( LO 


.EQ 


072? 


WRITE (LO, 


107) 


0730 


*LO 




0731 






0732 






0733 






0734 


11 CONTINUE 




0735 


IF ( IPRINT 


.NE 


0736 


WRITE (LI, 


108) 


0737 


WRITE (LI, 


14?) 


0738 


12 RETURN 




073? 


END 





0 ) GO TO 11 



LI ) GO TO 11 



0 ) GO TO 12 



REP , AVRGE , IPRINT , 
REP , AVRGE , IPR INT , 



FTN4 COMPILER: HP92060-16092 REV. 1926 (790430) 

*# NO WARNINGS ** NO ERRORS ** PROGRAM = 00973 COMMON = 00000 
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0740 

0741 

0742 

0743 

0744 

0745 

0746 

0747 

0748 

0749 

0750 

0751 

0752 

0753 

0754 

0755 

0756 

0757 

0758 

0759 

0760 

0761 



C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 



REAL FUNCTION SCANR (LU,ICHAN,K) 



Close relay ICHAN on scanner LU and read the instrument 
ind ica ted by K . 

Author: Robert N. Geopfarth 

Date: February 31, 1979 

Detailed program description is available 
variables are: 

LU ... LU* of desired scanner (8 or 

ICHAN ... Scanner channel (integer). 

IC ... Scanner cnannel (ASCII). 

K ... Instrument code ( DUM = 1 



in TXCO log; 
15) . 



the 



/ Counter = 2 ) . 



Closes scanner 
101 FORMAT ( A2 ) 

801 FORMAT ("C") 

1001 FORMAT ( '* T3T3 " ) 
1201 FORMAT ( M T") 

1501 FORMAT ("C" ) 



and reads DUM, counter 



0762 




WRITE 


( 8, 801) 




0763 




WRITE 


(15,1501) 




0764 




IC =* 


ICON ( ICHAN , 


0) 


0765 




WRITE 


(LU, 101) 


IC 


0766 




GO TO 


(01,02) K 




0767 










0768 


01 


CALL 


TRIGR (10) 




0769 




READ 


(10, X) 


DUM 


0770 




CALL 


TRIGR (10) 




0771 




READ 


(10, *) 


SCANR 


0772 




GO TO 


03 




0773 










0774 


02 


WRITE 


(12,1201) 




0775 




READ 


(12, X ) 


SCANR 


0776 










0777 


03 


WRITE 


(LU, 801) 





0778 

0779 



RE TURN 
END 



FTN4 COMPILER: HP92060-16092 REU. 1926 (790430) 

** NO WARNINGS XX NO ERRORS XX PROGRAM = 00104 COMMON - 00000 
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0780 

0781 


c 




SUBROUTINE TIME < IMON , IDAY , I YEAR , IHOUR , IMIN , I SEC) 




0782 


C 








0783 


C 




, Get date and tine and convert the variables to ASCII 




0784 


C 




• 




0785 


c 








0786 






#> Gets date and tine ASCII strinq. ** 




0787 






COMMON / CONTR / CNTRL 




0788 






INTEGER ITT ME ( 5 ) 




0789 






INTEGER CNTR L ( 256 ) 




0790 




901 


FORMAT <" ERROR DETECTED IN PROGRAM TIME"/ 




0791 






* u CALL EXEC (11, ITIME ) "/ ) 




0792 










0793 






IMON = 2H$* 




0794 






IDAY = 2H$* 




0795 






I YEAR= 2H*$ 




0796 






IHQUR= 2H$* 




0797 






IMIN = 2HS* 




0798 






ISEC = 2H** 




0799 






CALL EXEC (il+100000B > ITIME) 




0800 






GO TO 02 




0801 




01 


GO TO 03 




0802 




02 


CALL ABREG ( IA, IB) 




0803 






GO TO 04 




0804 




03 


IMON = I CON ( CNTRL ( 1 ) , 0 ) 




0805 






IDAY = IC0N(CNTRL(2) , 0) 




0806 






I YEAR = IC0N(CNTRL(3) ,0) 




0807 






IHOUR = ICON < I T IME < 4 ) ,0) 




0808 






IMIN = I CON ( ITIME ( 3 ) , 0 ) 




0809 






ISEC = ICON( ITIMEC2) ,0) 




0810 






RETURN 




0811 




04 


WRITE ( 6, 901) 1 A , I B 




0812 






RETURN 




0813 






END 





FTN4 COMPILER: HP92060-16092 REV . 1926 <790430) 

** NO WARNINGS ## NO ERRORS ** PROGRAM = 00146 COMMON = 00000 



257 



PAGE 0018 FTN . 



9:57 PM SAT,, 27 SEP., 1980 



0814 

0815 

0816 

0817 

0818 

0819 

0820 
0821 
0822 

0823 

0824 

0825 

0826 

0827 

0828 

0829 

0830 

0831 

0832 

0833 

0834 

0835 

0836 

0837 

0838 

0839 

0840 

0841 

0842 



SUBROUTINE WAIT (TUAIT) 

C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 

#, Causes a defined tine delay. Geopfarth, Zebner 



4- TM<3)*6000 + TUAIT 



«• TM(3)*6000 
GO TO 01 
GO TO 02 



IMPLICIT INTEGER ( T ) 
INTEGER TM(S) 

01 CALL EXEC (11, TM) 

THOUR = TM < 4 ) 

TSTOP =* TM ( 1 ) + TM<2)*100 

02 CALL EXEC <ii,TM> 

TNOU = I M< 1 ) + TM<2)*100 
IF < TM ( 4 ) .NE. THOUR ) 
IF < TNOW . LT . TSTOP ) 



RETURN 

END 



Cause a defined ti«e delay of TUAIT*10 Milliseconds. 

Author: Hans M. Zebner 

Date: February 13, 1980 

Because of the simplicity of the program the program 
description is included m this box. 

TUAIT ... Desired time delay is (TUAIT*10) milliseconds. 
TNOW . . . Present time. 

TM ( 5 ) ... Input time buffer (required for EXEC call). 

TSTOP ... Final time. 



FTN4 COMPILER: HP92060-16Q92 REV. 1926 (790430) 



** NO WARNINGS ** NO ERRORS ** PROGRAM = 00087 COMMON = 00000 
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8 . DATA REDUCTION PROGRAMS 



Three data reduction programs can be initiated from 
within the TXCO system. They are the following: 

(i) Program REDAB (Enter 9) 

This program was written to reduce data from the 
A-B Kulite probe system following the method given in 
Ref 2, and outputs distributions of velocity magnitude 
and flow angles. 

(ii) Program REDCO (Enter 10) 

This program reduces survey data taken with the 
combination temperature-pneumatic probe and outputs 
distributions of pressure rise, temperature rise, Mach 
number, flow angle and losses. 

(iii) Program REDST (Enter 11) 

This program reduces data taken from fixed in- 
strumentation and outputs the steady-state performance 
of the compressor. 

The above programs are documented separately. 
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9. CONCLUSIONS AND RECOMMENDATIONS 



The large quantity and variety of instrumentation used 
in the transonic compressor test facility required that data 
acquisition programs be provided for the different types of 
data. This was achieved using a particular program structure. 
Data reduction programs were strictly separated but geared to 
the acquisition modules through the use of standard data ar- 
rays. The data acquisition programs TXC01, TXC02 and TXC03 
have been described in detail and the operator commands are 
explained. The reduction programs are to be documented sepa- 
rately . 

The need for easy-to-understand program control leads 
to a conflict. If interactive messages which explain the pro- 
gram flow and offer menus giving a selection of next logical 
steps are included, this introduces extended I/O operations 
and leads to long programs whose speed in execution is slowed 
considerably by the I/O's. On the other hand the I/O's may 
be kept to a minimum, which speeds up execution, but this may 
also lead to communication gaps between the program and the 
operator. Since the research on the transonic compressor 
test rig is carried out in large part by visiting researchers 
and postgraduate students, it was decided to program closer 
to the first alternative. However, a very useful compromise 
was achieved through the introduction of the program control 
array. Should experience in using the TXCO-system show that 
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the interactive messages, error processing, or the checking 
for erroneous operator input are too extensive, then the 
programs should certainly be trimmed. 

At the time the programs were written, a graphic soft- 
ware package was not present in the operating system and 
therefore original plotter software was generated. The 
switch from "home made" to HP-supported graphics is recom- 
mended . 

Finally, if the instrumentation system is changed, 
corresponding changes can be introduced into the appropriate 
program module, or a new one can be added. Also, the same 
or a similar program system can easily be adapted for use on 
any other test rig or calibration apparatus in the laboratory. 
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APPENDIX A. DATA ACQUISITION WORK SHEETS 



A.l. Data Locations 

A. 2. Steady State Data Array 

A. 3. Program Control Array (CNTRL) 

A. 4. Paced Data Array 
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A. 1 . DATA LOCATIONS 



Ul o r % 


I< 


:'» l;i 0 > I- ; 




c:t a l* rx 




1 n i «•*: rx *»* i 


o » '•» < *, 






port 


Scan i valve 


Scan i va.l o«> it 2 




r>r ann i-> ~ 


it 1 


Srarnor i? 


ch 














(wlvancvz S/U 


1 1 


[ 1. A / c r. o x 7 1 ..> 


.1 


i 




PA-PA 




PA-PA 




•i ii 


" L- 


T '■ L* " * ) i.o 


i 


o 




PCAL-°A 




pr;.! -a A 




ii ll 


#,3 


1 r ii r to o ij t L 


o 


3 


PI 


n o: zle-P A 


Pi 


COMD nr- A 




.1 ii 




T* t ’* r h 1 i* t R 


7 


4 


Pi 


noz th-PA 


P73 


conn p r - P A 




it ll 


TV co no oo7 0 


i) 


S 


PI 


n o ; fl-PA 


P 1 


con b p r - ° A 




P >■? a t» t S / 7 


ir : T 1 -.'.mo no.: U 


?• 


6 




PPh-P A 




a r:?-p a 




„ 


*T > 


T i. n - - a 0 H 




7 




P r i) il»»A 




pry -:->A 




n i> 


«■ s 


r h4 




S 




S t -P A 




PA-PA 




ii ii 


r. *. 


T 




a 




82-PA 








" 11 


i. cr 


T* C4 


J 


1 6 




S3-PA 




P alpna-PA 


V'in r .( 1 nr.'>r S / 7 


•S* 1 


r Ci>i- 


xc 


n 




SA-P A 




07 -P A 


>• 


>• 


> 




1 ) 


i 2 




S5-P A 




A *• -PA 


k 


<• 


ii- ~i 


4 to 


** 0 


13 




9 S - P A 




PI -P A 


“ 


" 


i- ' 


4 r t • r p P 


.' 0 


< /> 




47- PA 




7 ’ — P -i 


" 




M- c 


A, A 4 


• - 


is 




S 8 -P A 




Ai 2 -°A 




P t-* r 


A ' ’ 


A-' 77 




la 




8 ? - P r • 




1 - p A 




yS j.rf fr. 


r 


4 T 0 4 




1 7 




S 1 0 - P A 




r ,?-°A 




R p r 


! '7 - 




.... 


18 




S’, 1 -Ph 








i.} i*7 frn 


T . . ) 


• i *i " i -f o r 


1 •••• 



1 


3 .1 7 - P A 


P 3-7 A 


P •- •’! •- o a * a '' 


f - *> V P ,« ,.> L v 


20 


Si 3 -PA 


i"3 -PA 


f pv 


A 


p 1 


51. 4- P A 


*h *i — 4 A 


? "PR i" 


! 


3 •> 


Si ' — ! J A 


P .0 -- .1 




- 


23 


•3 ifr-04 


< ' i • a A 


t T < f ’ 


M •' '• 


24 


S 1 7 — ^ A 


c -. p 


- i'P 


r i : 


23 


p A-*- A 


••7- y A 


, ■ ! *i t \ ** .■) ,3 ♦ 


r 


o 7 


POAl.-P A 


~*P ^ 


P i n i . 7 — i 


r . -s 


o y 


SI. 9-PA 


■I h - l> A 


:> r n ? : i • c 


0 r '.. 


28 


3 i -f-P A 


8 o-P A 


^ i * : O : : : v? 


i ’ !* . 


p o 


H l -P A 


• r- • A 


• •*. • t i. \> i 


i ! r ■ 


30 


H7.-P A 


A7-RA 


r a d j f 'i C <' n n 


c r 


31 


H2-P A 


P p . *’ r 1 n * 1 ”? A 


■j I*, ui con'o 




32 


r l ♦--‘A 


1-' •»■ n ~ 4 - u A 


r a • j "/ ‘l > p ' 




33 


U*c_~ A 


°T * o r m • n — ; > A 


■ 1 n M 




V* 

tv 


hi 6 - F A 


° t ± r jir •_ - A 


r r: a •* n ‘ V 


r 


3S 


H 7 — P n 


p s ? o ii t 5 — i-‘ A 


v a w M ' 




33 


38-PA 


J T ro o ij t L-PA 


r ora i) ii 


t or 


T '7 


Hv-P A 


P T r o oil t R — P A 


: (0'L r «•? +' p 


r s 


33 


H * 0 — P A 


° ro out 5..-PA 






39 


HI 1-PA 


P r a o u T R -PA 






40 


0i.sP T 1-P A 


PA- PA 






41 


n.i-f ip-pa 


° n 7'f‘ 1-P A 






42 


f> 1. 4 f l 3 -PA 


•*> J iff 7 -pa 


Scanner 


P i. c r a r n r ^ 8 


43 


!> iff T 4 — ° A 


° rjifp 3 -Ph 






44 


Pi r p rs-pA 


C.I.9-P 4- ,J A 


con'* 


j. p o n ( i o r» n * x t n a q e 


45 


n i*6 - pa 


■■> ilL+*t S-P'A 






4 h 


n . v' c ^ - ‘7 a 








47 


D i f-- th-pa 








48 


Di.-Pf TS-PA 







* — - - 


p o r t n 


Scanni'Jalve +1 


S c a n o i v a i v e Ii- 2, 
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ch 


3 r, a n n e r fr ^ 


S c: a n n^r * 2 


ch 


40 




wall KUL l< 6. . 


4 0 


41 




4 * “ K 7 . 


4 1 






" 14 !<3. 


i;> 


43 




■' M K'8.5 


■T /, 


44 




K ? . 


.1 /* 


45 




“ " )/ p c 


4 c: 


46 




" 11 '<10. 


4 6 


47 




" 41 K J 6 . 5 


• -t 


43 




" n |< \ j 


4f> 


49 




•• *• k 1 2 : 


4 


50 






•= 0 


31 






c. j 


52 




* 4 > i : U L p r 




53 




' B' KUL p r 


r* “v 


94 






'^4. 


55 






LC 


36 






/. 


57 






57 


53 ’ 






33 


C p 






CO 


60 






60 


b 1 






61 


, r "> 






i- o 


w c. 






■ 


A 






J 


54 






6 4 


l c; 






63 


A 6 






A A 


67 






L/7 


p 






ik 


69 








76’ 






70 


71 






7 4 


”2 






6 -5 


7 2 






*■/ 7 


74 






74 


^5 






75 


1 L 






7 6 


77 






77' 


79 






7° 


79 






7 W 


ch 


Scanner tl 


3 r. a n n • r #2 


ch 



\ 
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A.2 



STEADY STATE DATA ARRAY 



14 o k ;V.. <?. ct y? o y>. r* ! * X . S: ?. • "J f'x 

Por' .’.V.JiX.fS. ^.;V r i ;-v j ; ;l* . > r\ ci r r x 



File nane rony^ntion : raw -ready state -la^a T‘ <x R n ° 

reduced steady state data T$RP;..-3 

RR = ASCII so averted runlV 

SS = t .i. 1 e se n u e n t i a t t* fr on t n .l s run 



Note ; In some cases the Jet ter T (which stands tor Transonic 
conpresoor > cn a u he c h a n n e cl to any n r h e r rhnrnrter t n 
order to prevent overwr i.t m rj a n e x i. t i.nn da t a +' j. j. e . 



Example : 



T <* 0 0 a is t h e thj.ro d a t n. .file f rn t e « t r » ' n tt'a * t h a t 
contains steady s r a t e ci a t n . " n e c a t a r e d •; c ” i. o n n r o - 

q r a jv, R E .0 ^ T < R e d net i. o n st a a v s t n r i > d n t a > r r < 1 1 e -j t n a 
f i 1 •?. 1 ° 0 0 R. i.o t a k e t h e r > o u c e rj a a t a f r o rr * n s r u n . 



Due to inter f a c e. n u 
a r' n ro ?> T 0 Y s o m s n k s 

h n >.i \> n ~ o <d t » f i r r ■*> ■» 

i r a * s r e s t a *' r i > d 
whose n an-* s n '< r * a d v 
f i i. j «> ; f h e o r c* r a x o r 
f i. r s r char n c - e * o f 
I h e r e ci t j r e a a n. t a o f 



S n r o h l e n S r ;\ . a n •+ n a r a : ' 1 r* j. r .1 O'" p r n — 

n x t o a >•> r r- ’ r t e a , n . ; - i a y a .!. r • ' •-< ^ j 

y n ' : ci r n ■..> a a r f *. j * > - , Mh i.' n t* 1~ «•> n r n — 

. t* •«• r r e s ro, :• i3 t o S n r n f x xe S , 

,v- i. s t , I a «» n • d p *.i r n { n a t h e se 
J ' a : r> i. n t •» r a r ! y r: h n n n •■> <= i r, e 

r e ti a r a f x 1 e n n ,^e to : 1 ii n 3 .. e , n , , 

r ■) , r s e are t r e .t. p f I > J 9 0 F 0 , 



by r h e way. r ront-uns n n o d a a t a 

t h x s file i. n a ar t r l *"i n e 29 an d can u r>e. 
tp (1 with R'ARI, 



Y o u 
it to 



w i .1 !l F I n d 
] e t o c. :| j • a i n 




I 


CHI (I) 


CHS ( X ) 




CH3 < I ) 


CH4 < I ) 


I 


1 


PA-PA 


PA-PA 


P 


h a r « n e t r i. r 


n/a 


1 


p 


P CAL- PA 


P CAL -PA 


P 1. n o i. i. »*> cnn p r 


n/a 


A. 


3 


PI noz7.lp.-PA 


Pi comb pr-PA 


P n o /. z i: r omnr 


p d t r 


3 


4 


Pi. no r t h - p A 


P83 comi;) pr-PA 


Pi 


n o 7. z e i* u r b 


rn r 


4 


S 


PI noz FI -PA 


P 4 co no pr-PA 


p 


nozzle turb 


TT3T 


5 




pbm- PA 


PT2-PA 




n /a 


DTTT 


6 


7 


PT00-PA 


PTi-PA 


rad 


f) n a r n M b n r 


flFLT 


7 


8 


Sl-PA 


PA- PA 




V a io conn a a 


HPT 


8 


9 


S2-PA 


l< a q - P A 


r ad 


p o r» ' A '* p r 


hph 


9 


to 


S3-PA 


P alpha-PA 




yaw ' A } pr 


prct 


10 


i.l 


34-PA 


C7-PA 


rad 


p o «> * B * p r 


TT 1C 


11 


IS 


35-PA 


Ai-PA 




u a ‘/.i B • > jo r 


TT3C 


12 


13 


56-PA 


8 i-P A 




n/a 


D T TC 


13 


1 4 


S7-PA 


Ci-PA 


r.t 


A/O nozzle 


HFLC 


1 4 


15 


S8-PA 


A2-PA 




T turb in 


HP C 


15 


16 


39-PA 


P8-PA 


T 


turb tut L 


PRCTP 


16 


17 


Si 0-PA 


C9-P A. 


T 


f.jj r b •> u t R 


RPnf R 


17 


18 


31 i-P A 


A3-P A 




n/n 


(1 F «... C R 


IS 


1? 


518-PA 


83 ~Prn 


T 1 


conn n n ■» «> 


TnpnoR 


.19 


20 


St 3-PA 


03-PA 


1 .1 


c o n n n o r >• 


HP HR 


2 0 


21 


Si 4-PA 


A 4- PA 


T 


. 1 . n s r a 0 0 


H.PCR 


21 


pp 


3 15- PA 


84-PA 




"f ni.it A 4 


WPTR 


a* a 


23 


Sia-PA 


04-PA 




F out B4 


5FF0 


23 


24 


Si 7-PA 


A 5 - p A 




f «;ut 


h hr 1, 


24 


2S 


PA-PA 


B5-PA 




r C a j. 1 


l“FF2 


25 


26 


P CAL -PA 


05 -PA 




n / a 


OFF 3 


26 


O n 


Si 8-PA 


A 6 — P A 




4 T ->irb L 


a /a 


27 


28 


c o _ p ^ 


B6-PA 




A T *• : i r n 


n / a 


28 


?Q 


' H t - !“ A 


0 6-Pa 




a T h4 


n/a 


29 


30 


H2-PA 


A7-^A 




AT B4 


T in ref pr 


30 


31 


H3-P A 


r ' be nr. in n-P A 




aT 04 


f CO ah r v »f 


31 


38 


H4-PA 


P t nr u cj t — f a 




n / a 


n/a 


32 


33 


HS-^A 


Pi turb .in-* 3 A 


! <UL ref nrei; 


r u n -it 


33 


.74 


P6-PA 


P /> t out L-PA 


wall k L*L’ K6. 


r i? a t Jjj 


o 4 


35 


H7-P A 


p ■?> t out R - P A 


11 


M <7. 


n o L n t 4 


35 


36 


H8 -PA 


P T r r o 1 ! t • . - P A 


- 


K8 . 


d a y 


36 


77 


H 9 - ? A 


P T r n nn r R — p A 


" 


" l< 8 . 5 


MOP t n 


37 


38 


HI n-P A 


P rn out L-PA 


H 


• K9 . 


year 


38 


39 


HI 1-PA 


P ro out R-PA 


a 


• " K 9 . 5 


rtarfuru; cone 


39 


40 


D.iff Tl-PA 


PA-PA 


" 


11 K i 0 . 


n / a 


40 


41. 


Diff T2-PA 


P rtiff i-P A 


- 


" K 1 a . 5 


n / a 


41 


48 


I Hff T3-PA 


P diff 8-PA 


•I 


" t< t i . 


n /a 


4J2 


43 


Diff T4-PA 


■P diff 3 -PA 


" 


" K 1 8 . 


case ancle 


43 


44 


0.i. FP T5-PA 


P diff 4-PA 


it 


" K 1 3 . 


n/a 


44 


4S 


Diff TA-PA 


P diff 5-PA 


it 


" !< 1 4 , 


n/a 


45 


46 


- Diff T7-PA 


n / a 




n/a 


RPh 


46 


47 


Oiff TS-PA 


n / a 




* A ' KIJL pr 


Tornii e 


47 


48 


Diff T?-PA 


n / a 




> JV |<UL p r 


n / a 


48 


I 


CHUI) 


OHS. ( T ) 




CH3(I ) 


CH4 ( I ) 


I 
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A. 3 . PROGRAM CONTROL ARRAY (CNTRL) 



W.p..riJk . 3;-Vsiv.E.V. V..P. 'J..' ' .'.v P «':! * * ' it o r* .=> 

D. J.TV.F:. .<C ^ "T R I... : 



CNTRL ( i ) 
CNTRL (2) 
CNTRL (3) 
CNTRL. ( 4 ) 
CNTRL. <<5 ) 
CNTRL ( 6 ) 
CNTRL < 15) 
CNTRL ( 19) 
CNTRL < 20) 
CNTRL (21) 
CNTRI. (22) 
CNTRL (>:0) 
CNTRL (31 ) 
CNTRL (32) 
CNTRL ( 33) 
CNTRL ( 34 > 
CN r RL ( 36 ) 

CNTRL (37) 



Mon t h of the * v» r_ r 'i n . 

Day " '* ___£ " ^ 

Ye (ip " 11 " " 

TasJl runj^ 

.. o f th.}. «r> m n 
R^o I n_t fr n +' t h .1 *> 1 1 > <r, r , 

Mn.c n n e C •' n e . 

LU fc ot' the ?Ta nvia "(| i.ntv»rac t j. inj> nj- d =?. y ic e , 

L l ]_ft “ ^ n 1 1 r n 1 1 t* d t v j t c * 

LllT " “ o i. o n n 1 . o tj r n v. 1 _ cht j. cj? 

UH; jflj'ff ~~ 2 L 

LR.r_.T r i d..! 0 Lll_..TJ~ fj \ 1 LC * _ !r +- ' r>r •"* r * t _f i . 1 an 

C'_-: r 'ir ' f f 'Lr .a? T a f > las . _ 

i ** n ** ; i nrl _5»t> r nr r: r n n p o c *<>r •» >' d n r n f j. \ • • n n. £ p ■ T P ( j ) 

T h j r rj _ n n ft f o ur t h " £ J " T F T. IE ( ? ) 

iL.JlIii._dhd i >h ... ;• " _ " ~~ !' fff • * "7 

r n i t .i. n 1 L * <3 t a i- : r e no y - 1 a l* r d n * n r ” •« c t j o n r " n > 

j . L i_ r -> j. t 

I'pr e -r p r j. it t l n n o f h e r* run ft in 7 m * •. r • v. » 1 1 n ».-> s ! ;r R F. E R 



and o .*• * • c v.) ^ j ./ r, r t* n i . 



CNTRL 


.(39) 




A 1 - r r £ ft 


-• • o 






ope n i. n r n 


a c I o 


> .i n q o f f .t. 1 


« s i n 






c> .yj?_r c.'i " 


• n t.i. f R 


1 ■ L' D 




a 


p d U AC;FR . 


l £__p aj' 


' n 




CNTRL 


,(40) 


5i»r 


*7 an n.|. 


O -1 


0 


i) 


r P U ■*■ Or U 


« r nr n 


1 1 .i. r e d o n r 7 


d run 






dot y 


X/LC.M.J-JT 


a 1 




». 


f c t ;> t T n 1 








CNTRL 


,(41) 


: l 0 0 K I - 7 n 7 ' 


for r ri 


o i*' r 


V 




r p j. n x -- 


r l. L r._F--' : 2‘ 


Lpn _ 0 _£^ a r; 


r a> » i. o a . 


CNTRL 


(42) 


lO.uYFnr.; 


tor t o 


v-L.LT 


V. 




3_.)7 e _j- p_..ir. 


n t rj:- C.T 


1 .‘IF Li’._ r1 ..d. 


r a 1,1 t.nn , 


CNTRL 


(SO) 


: Ina ir a. r i 


» s t n £ 


^ O It 




!*| 


r o q r a w t o 


h vt nch 


►*dul«d ann 


t h e 






5 'Jbrnu r 


i. n '•> * o 


n p 


c 


n 


?t lea r t e r a 


from , 










01 


Srh 


£ *1 1» 


i 


t» 


TXCCU and 


coll 


A FERN 








02 


11 








H >i 


i 


C AL T F 








0 3 . , 


" 








it H 


" 


FREER 








0 4 


. 








ii ii 


if 


P ACER 








05 


Sch 




l 


vi 


TXC02 and 


cal 1 


rohB 








06 


, " 








il H 


•i 


STD Y 








07 


. Sch 


a (1 1 1 


1 


vi 


IX CO 3 and 


call 


CHECK 








03 


ii 








ii ii 


" 


CHNCE 








09 


Sch 


£d n 


l. 


it 


RED AH 












10 


Sch 


p n u 


1. 


p 


RF I) CO 










- 


i i 


Sen 


Lv. r l.j.L 


1. 


p 


REDBT , 








CNTRL 


(fel) 


n ii^Iip r of S/7 


c. on 


t* 


r 


o L 1 i.i r 1 1 . 








CNTRL. 


(62) 


>• " >• »• -it- r r 


CNTRL. 


(63) 


•• f- r r c , 


CNTRL 


< 64) 


ii 


i ii 








t t ;v . 








CNTRL 


( 65 ) 


ii i 


« ii 


■' 






tH ) . 








CNTRL 


(71 ) 


I..U IE C P J 


sc nnn,t*p 


'!• 1 


, 












CNTRL: 


(72) 


LJJ4*™7" ; 


• 


'“If 














CNTRL 


(212) 


A r roimt.i 


.ng va."„ 


ab 


!. 


£ 


«nhr o n t Lfp 




: - • output pnnv» * . 


CNTRL 


(213) 


11 










11 


ABSR 


7: curr^n t 


f i. l e. 4 . 


CNTRL 


( 2.14) 


•• 


•I 








ii 


«xLalY 


F_L. 1 L l 3..F.l 1_‘ 


•' n q # , 


CNTRL 


( 2 1 5 ) 




„ • 








ii 


CA! V 


I < : c * » r r - • > n t 


f ' 1 vi * , 


CNTRL 


( 216 > 


" 


ii 








ii 


FPFF 


R j output \ 


trifle # , 


CNTRL 


(217) 


ii 


“ 








ii 


FREE 


R : current 


fl.lv' ft, 
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CNTRL <2lfl> 


" " “ PACRRj output parp'. ft , 


CN TRL<2i?) . 


” ‘ " PACER? current f l 1 p #. 


CNTRL ( 22 1 ) 


H 1. n d <> p a i r 


<t - 


° ^ v if Par e ^ is opera tail in M o a o 2. 


CNTRL <2.?.2) # ’ 


Start "mint Tor 


d ata ocn u i * i t .i. o n u s i. n q P a c e r n r. o d •;» , 


CNTPL <223) 


Inc. re Men t 


it 


n H H ii 'i 


CNTRL <224) 


Stori r; o u n r 


H 


ii ii H H ii 


CNTRL < 225 ) 


ft of r •> p •» t 


1 1 i. o n 


r> at each location in blade nnsaaae , 


CN TRL ( 23 0 ) 


Total it o f 


h .l n n 


r. peed d a t a acqm s it i o n r, either i. n f r e. e 




or in oared run 


m o (1 v> to o e taken, 


CNTRL < 23 i ) 


A/D *. non r 


ch_pn_n 


e 1 For K UL I T E tune * A 7 probe, 


CNTRL (232) 


• 1 II 


■I 


•1 M > p. > " 


CNTRL ( 23S ) 


II II 


ii 


uall KUL.ITE • ' 6 . 


CNTRL <236) 


II H 


ii 


M " *< 7 , 


CNTRL (237) 


II II 


ii 


" '* K 8 . 


CNTRL (238) 


II II 


_ 


K 3 . 5 . 


CNTRL (239) 


It 11 


u 


" " K 9 . 


CNTRL (240) 


II II 


n 


" " K 9 . 5 , 


CNTRL ( 241 ) 


II II 


11 


" " K i 0 , 


CNTRL (242) 


I. 


ii 


•• •• k i a . 5 , 


CNTRL ( 243 ) 


II II 


ii 


" 11 K 1 i . 


CNTRLC244) 


II II 


ii 


“ " Ki2. 


CNTRL 12«S> 


II II 


m 


” " K i 3 . 


CNTRL (246) 


II II 


ii 


*' " K .1 4 . 


CNTRL <249) 




used 


for anal on d iso 'lav in r uhroi}t uv» 0 ICTR . 


CNTRL <250) 


it Of MU i. t i. 


oL.s 


o f 10 ms for 5 / L c o n t r o 1 l e r tin e d c 1 a u , 


CNTRL <251 ) 


To t al _t of 


f r e e 


r u n we. a s ureiaen ts ( m a x , i r>6 4 ) , 



\ 
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A. 4. PACED DATA ARRAY 
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one iau 1 1 1 record data file 



APPENDIX B. LINEAR APPROXIMATION BY 



METHOD OF LEAST SQUARES 




Data ; X ± and Y i ; i = 1,...,NPNTSI 
Equation : Y = C-^ + C 2 *X 

Difference for Each Data Point : R^ = Y^ - f (X^) ; i=l , . . . ,NPNTSI 

NPNTSI NPNTSI 

Sum of Squares of Differences : R = £ R^ = Y^ - (Cj,+C 2 *X^) 

i=l i=l 

The value of R depends on the values of the coefficients 
and C 2 . In order to determine a minimum value for R, the 
expression for R is partially differentiated with respect to 
C 1 and C 2 and the two derivatives are equated to zero. Dif- 
ferentiating, 

NPNTSI 

|§- = I 2 • [Y. - ( Cl + C 2 - Xi )] • (-1) 

1 i=l 

and 
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NPNTSI 

- I 2 • [ Y i ■ < C 1 + c 2 -x i )] . (- Xi ) 

i=l 

Setting each expression to zero, 

NPNTSI 

• I - C L - c 2 -x t ) = 0 

i=l 

NPNTSI 

l( Y i *X i - C 1 -X i - C 2 -X. 2 ) = 0 
i=l 

This gives two equations in which and C 2 are the only- 
unknowns. Omitting the limits of summation for simplicity, 

l r - 1 + IVi = J Y i 

I c i x i + Ic 2Xi 2 = Ix 1 -x i 

or, in matrix notation (note that and C 2 are constants) 



NPNTSI £x. 


• 


c i 




ih 


yx. yx. 2 








Ty.x. 


L l L l 




2 




i 



or 



A • C = B 

The components of the matrix C are obtained using 

a ll = NPNTSI 
a 12 = a 21 = ‘ X i 

a 22 * i X i 2 

b l - I Y i 

b 2 ‘ £V X i 



271 



b l 


a 12 






b 2 


a 2 2 




a 22 b l " a l2 b 2 


r — ! 
r — 1 

03 


a 12 




2 

a ll a 22 a 12 


a 12 


a 22 






l ll b 2 


- a 12 b x 





a ll a 22 " a 12 



I X j 2 * I^j ~ IXj-lttj x j) 

NPNTSI • - (JXj.) 2 

NPNTSI-I (Y i *X i ) - IX i *lY i 
NPNTSI* ^X i 2 - (^X i ) 2 
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